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The latest multi-player multi- 
format PC game from Australia Is 
different to all forms of Poker. 

AusbIo joker poker features 
90 player capacity, open-ended discard 
ability, selectable deck size and hands per 
player, password controlled gambling system 
with automatic accounts - and 5 fre«antry 
fonns fortho $200,000 Aussia JOKER 
POKER Corrtest. 

Each month December 1988 through 
April 1989 winners of 240 JOKER 
SOFTWARE games and 4 finalists will be 
randomly drawn from al I entries received 
that month. 

With a guest, the 20 Finalists will be 
flown to Las Vegas to play Aussie JOKER 
POKER for a nrst prize of $100,000 In 
cash at the Golden Nugget. 

1,220 Prizes Value $200,000 

1,200 Joker PC software games 
at $29.95 to $49.95 dependent 
on disk format. Game prizes 
at sole discretion of sponsor. 



Cash Prizes for 
Aussie JOKER POKER 
ContestGrand Final: 

Highest Scorer: 

Second Highest Scorer: 

Third Highest Scorer: 

Lowest Scorer: 

16 Consolation Prizes of $1,000 
each to eliminated Finalists 



$60,000 



$100,000 
$5,000 
$2,500 
$1,500 

316,000 



Pr|jetrKlu^iaij|rj'wll-Drfinjii^^and'1f»cir gufttv 

tfOfrtTr*trtj[poj 3uponi0L.ijVffiasy-ithi[*tidJir^.i.r>d 

IwanigriK .x; cofTiTKMJ.rtkjfl 3t |he Golden Nujgfiel $15,U00 

liipprCi Fi'tfli! vflluB $7^ ti^fH tubiect to (If iJVVil u<r polniij. 

hcFTtrn ata xqJd re*j3ort»|.biliry ot winnpr^ 
■ill !>•""' jrificil III v*fi(inj; 



AMIGA" 

Aussie JOKER POKER Is 
available for SIX major PC^ 

If your PC has a mouse or Keyboard, a mono 
or color monitor and a 512K minimum ram 
{except Apple II and C64/128 use 64K and 
keyboard only) you and your family can 
practise at home for the Las Vegas final of 
the Aussfe JOKER POKER contest. 

Suggested retail prices: 

IBM & compatibles 

(CGA Board required) $39.95 

Amiga & Atari ST $49.95 

Macintosh (mono only) $49.95 

Apple II $39.95 

C64/128 $29.95 

\tcrdvt\nR bv Iciirphone ndd $3 ANppIn^ A hsrrflinjj and check mat 
yqiur t'C mPEt* the rnin'ri^kirti hardwiiri; reqwIrCfncnEi ai npcatri 
iffvr\^% opphr Warranlr <* llini(*d to (rce r?pE*c F^^^enE ot lauJl^ 
pfOduCElffEufrwdOy pre pa I it [!€]>' I 




Aussie JOK£R POK£R Contest Rules 

1. No purchase necessary to enter. 

2. Void where prohtbltc J by state or fcdcrallaw. 

3. To enter, simplycomplcte and return the thoofHctfil 
entry form, 

4. Limit five entries per family or household. Five free 
cntryformBandfullcontest rules aro included with 
"Aussie Joker Poker" or may be obtained by sending 
a stamped self-addressed envelope larger than 
5Vb ■ ■ TVs' with a hand wr I ttenrecjuest to; Aussie 
JohcrPokerConlest Entry Forms. P.O. Box 22381. 
Gilroy, CA95021 2381 Mail-fcn requests limkted to 
one per name, household or family and must be 
received no later than 3/31^89. WA fir VT residents 
need not ir>cludercturnpostaj^e. Full rules also 
avnirablelrom participating Mirtdscvtpe retailers. 

5. Moruhly entries must be received no litter than the 
last day of the month In which a drawing will take 
place in order to paftlcfpate in the month's drawing. 
Drawings win be held from December, 1988 
through April 1939, inctusive. Final entrfes must be 
reccivedOy4 30 89 

6. Con I est open to legal residents of the U.S.A. and 
Cj3in^ida ilother than Quebecli . 

7 Odds DlwInrtJngdepend on number of eligible 
entries received. 

8. Contest subiei::t to complete official ruleS- 
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P;,QQmbl Jn fl,^^ITta of$kfir&^once 
Another Wonder ^^ from Down Under c 



IBM. Ap^iiD & Mjcim 
Altpf* Conwuler, Inc 
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SEE YOUR NEAREST IVIINDSCAPE 

SOFTWARE RETAILER 



EXCLUSIVE 




DiSTRIBLTOR 



M 1 rj II 1 C fl !• [ INC 



w If IX.I avaiLsble wdpr djfpci an 

Ir800-24<JOKER 

24 hour order service 

JOKER SQrrwAFTE IHTERNATIONAL. 
PO BOX 3^3fto, aiLRDV CA 9SD21 -SSftO. 

RETAILERS CALL: 1-B 00-2 2 1-988 4 
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l^SuperScript gives you 
1 everything you need for 
professional word pro- 
cessing in one easy to 
use package. Its menu 
command structure 
puts you immediately 
at ease with no com- 
plicated commands to 
memorize, yet SuperScrip 
business-style editing speH 
Llator. row and column ar^h 
m.a metae tacllities, The ph ase 



and export to other programs vS. I ^^" '"^P"^ ^^^^ f'om 

'oad ivifh, and pass Macro "^^ 
gommands to, the Supe 
Scnpt word processor to 
create a completely auto 
n^aed office system Now 
1581 disk drive. 



for 



combines ""=";'7%"„;," and column arith- 

checking, calculator^ row ar^d ^^^ 

metic and lull ma,l rne ge tac^it ^^^^^ ^^^,^ 



?Ss oS oX: Sm^nd se^uence^^ , 
f.?S them with a simple ^%^--^^9^l ^V 



Commodore 64 

$39.95 
Commodore 128 

$49,95 



'1 ^ """"""nli. r,. 




passages "■ •- 

and recall them w,u, ^ -^.■. r - ^-— .^ a^Vhe 0' 
commodore 64 $34.95 iB^J^rt>^^%':;,Uie 
commodore 128 $39-95 y SUPJ $0;9&j;^ 




orooramme, and^t^e ,^^^^^ p n me^ j^^^^ 

^^^^ on youf *sk, int|rP^J^^ ^^^.e any 




epiace 



ASCII or F-- — ^^en rep.-- 
changes you ^^^J \,.„gs you 
them. SuporDiskdoc ^, ^^ 

extra secunty^ nine ^^^^ ,^,^ 



the 
ttie 



- f PS ^4'^";;, f^om /,v,, 

^^e wealth Of f,jnf.'^"«'"es. 
Pract/ca;exarnn7'''P^3"d 

'94 pages $i5_g5 ' 
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Attention Superbase Users! 

Call us for information on 1581 

upgrade and Officia! Superbase 

information Network! 



Available from 
your dealer or 
directly from - 



Precision 
Incorporated 



Precision Incorporated, 

8404 Sterling Street, Suite A, Irving, TX 75063. 

Telephone: (214) 929-4888. Fax: (214) 929-1655. 



Cocto 4t9 on FMador Sannce can). 



You Could Win 
The Ultimale 1 28D System! 



R 



UN magazine offers you a chonce 
1o win the latest in Commodore 
teight-bittechnology. This fabulous 
prize contoins all the occessories you need 
for ail your computing opplications. It 
includes: 

• 1 28D computer 
*1084 monitor 
«1581 S'/j-inch disk drive 

• 1 750 RAM expander 
BNXIOOOC color printer 

• 1351 mouse 

• 1670 modem 
Plus: a collection of productivity software 




Tfiis computer prize (worth over 
$1400) comes complete with 
computer, peripherals and pro- 
dudivity software. It could be yours for free) 
All you have to do is fill out the entry form 
see page 97), Send in your entry by March 
1 , 1 989, for your chance to win this state- 
of-the-art computer systemi 

Si^N magazine extends its appreciation to 
Tussey Computer Products, who served 
as supplier of the hardware prizes. 



To enter, simply fill out the entr^ form or a facsimile on page 97. All 
entries must be postmarked by Morch 1, 1989. Only one entry per 
household. The odds of winning will depend on the number of entries 
received. Taxes ond duties on the prize are the sole responsibility of the 
winner. No substitutions will be mode for any of the prizes. The prize is 
guaranteed to be awarded. All federal, state and local laws apply. Void 
wherever prohibited by low. Open to residents of U.S., its possessions, 



Conado and Mexico. Anyone of ony age may enter, but if wort by o 
minor, the priie must be claimed by parent or legal guordion. Employ- 
ees of IDG/F^terborough, its affiliotes, subsidiaries, advertising ond 
promotion agencies and the fomilies of eoch ore not eligible to enter. 
The winner will be selected in a random drawing held on March 3 \ , 
1 989. RUN magozine will not be held responsible for lost, misdirected 
or late mail. 
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S iWW iJHrH?JI^] It .Jil <ihbji*nJ#iil/ttiriidt Mri L^iiiiftrnl »iili i,nm 

.i«4tt*nrTt.-rt.,p|ifr. Iw. "J IJjt> m , IY^rtl"fli>ti(h. h>l <04^ tti.iMP SoS 

iiuili^ irflkt4 t^kakin viH4idHl<^ Bull rvfntTi"ni m— I pi * VAV WMnfxua 
Mr«>ii LA <n tS^irrf^ niw7T«r>H*(?fiit t«>J*pr*MBd J^ifl flit thiw jfiii Ir 
l:JlF^Ltunl|Mrll^l^IhctMlr-}ellT tiAwiriptVifi rj(r It OT 'JT, witFt 1 '^ futii* iTri-ti ixt 
J L'5 I^ihL |t>T^' tdtaf nud *trfMci1|H>'af mc dS'JT ttit (4>r tnr. ■■•'I Fnr^ <it 
■Tutj tmr^rjT wHl»iil]^r.nt -It tTTJI. with ll..% fund* flputtTt iiit i L S. fjank. «[W k 
■urkHkjJlytllttr#)tjr<tl hrki'rttjUvwi^CirTuUDnit |3>di itujton n i ft it t r Sitnl ■Jtfrrt^ 
rTi«i^nkinr'V.Vll>viipt*tttkT>«ifi,rt1h>kltiTII,Bfttlt(n.«>tt«YZ7|tTll |f>rt«]t.T. 
irfdift. tlu„irt tt, ftr.'.V Ml frtN UrtK hin fjif. (titt*il.i, (:jii*1j UA ^NS) 



SPECIAL ISSUE 19S9 

FEATURES 

6 Magic by Tim Watsh 

Some r>() brand new Miiyic iiitks m crufn.iin and msirua you on your C-()4 orC-128. 

1. C()4 PKO(;k,\MsnN(;. fi 

2. C12S i'HO(;R,\MMiNG .a 

3. nil amdc: I2H Pkockammim; , 10 

■!. Arri icmios; i»(«M;Kj\Ms 13 

5. Disk Dkivils 90 

6, Gknk«ai.Hin'ls ANiiTii's 92 

20 Programming — Getting down to business. 

SI Basic 1D1 by Annelle Hituhim 

Gi't to know your compuicr hcttrr by intioducing yourself lo the Basic limpiagc. 

S4 The Secret of Better Programmino iiy joim liyan 

VVriiitiH a roiiijiulfr projjiani is ;iii an. l-'oilow tlicsu j^uidi'lines to hvlp siiioolh 
tlif vmy, 

27 C-E4 Sprite Basic Ay Charln Omiit 

UsL' ibcso spriU' coiriniinids lo extend your cotnmantl of sprites. 

31 C-128 Sprite Action l>y Rub Kennedy 

.Master the use of^^priies wiih tiiese hij^ii-level l!a.sic 7.(1 cumiiiantis. 

36 The Sound of Basic by Hrueejneger 

Yoin' {ir>ninia(i()re h alive witli tile Miund ofliasic. 
44 IT'S All Relative by Rob Kennedy 

Basic 7.0 iiii liiiles in.my new tiiniinantts llial iiiakc rclativi; files easy to use. 

48 Excuse the Interruption by Jim Ilnaek 

Take full advantage of intcrru])Ls with these aiivanicd niaehlne language 
proj^atnmijig lechniqiies. A three-part series. 

G4 Games — Time in break fnr some fun. 

65 Tao 'Em fty/o/itW+rfor 

Chase and ^;^•: i based Ijy yovir o]j]iinleni in a iii:!d dash around ihe C-64 courr. 

66 GrAVITRON Ay (:bmle\ Orruli 

Hostile spaiesiiips are plotling lo sieal Earth's pieeions water. Can you stop 
tlieni or are you all wctj For the CSi. 

75 Astro.Shoot by John Fedor 

[ low iiiajiy targets can vou hit in fiO secon<ls or less? A CTct arcade- act ion game. 

78 Commodore Clinic byUm WnUace 

Answers Ici your nuisiasked eoniputiinf <)uesiions, 

DEPARTMENTS 

g Contest 

Heie's voui' cliaiice to win a complete C-128D System, woith over S1400. 

4 RUNniiuo Ruminationb 

1 he innri-dienis of ibis Rl'S Spfdal Issue make for a tasty publicalion. 

47 Type-in Troubles? 

froiiblfshiioting lips lor entering listings. 

PnoBRAMMERs Reference Chart— n( page 48 

Twelve panels ihock full of programming commands for ihc C-6-t and (M28, 

49 Special Issue Disk 

Don't want to type in this issue's listings? Order this disk, whieh inrimies three 
tuipubtisbed bonus programs. 

63 Learn To Walk Before You RUN 

Kit'st sii'ps I'oi" new ('.onunodore owners. 

95 RUN'S Checksum Program 

Type-in help so you can RUN it right the first time. 

96 Authors Wanted! 

Have you an interesting program or an article about Commodore computing? 
We'fl like to see it! 

96 List of Advertisers 
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RUNNING 

Ruminations 

Our fifth annual Special Issue 
for Commodore 64 and 128 ozvners, programmers, 
non-programmers, experienced and novice users alike. 



Imagine tliat you're a magazine editor assigned tlie task of producing one 
isstic to address tlie needs (if Commodore users. What information would 
yon iiii iuder 

Tliat's ilie qiiesiidii vse pnseil us /UW editors assembled to ibimuliitc 
(jkitis fiir lliis year's s]KTial issue. 

"I^t's do a proj^ramming issue," suggesicti one software lechie, busily cod- 
ing a jirogtam to cheat on iiis taxes, 

"lley, don't forget gatues," yelled the resident game junkie, carefully pol- 
ishing his tollection of joysticks. 

One wily veteran chinied in, "Retncmber, our readers have always re- 
gat<!ed the Magii ami (!niiim<idore Clinic c<iluiiins as iheir favtiritc features. 
We imistu'l exclude either of thcui." 

"Hey, llow alxnit a coolest lo give someone a chanee to win a ctunplete 
t28l> system?" said one part-time staff membei under the age of 18 and 
voitl wheie prohibited bv law. 

"Why not make the ]uograius in tiic luagazinc available on disk s«( read- 
ers don't have to type in listings?" said the bleary eyed proofreatter, recover- 
ing from an overdose of nvachinc language code. "And." she added, "we 
could offer some binuis programs, as well, lo fill up the disk," 

"Anything else?" askcii the editor, Itiriously taking notes, 

"I'll he still' tu coiiiact only the lop aulbors and projjranuucrs in the in- 
dttstr)' lo contribute," said the assigmnenis editor, looking at his watch to 
determine the time in I he Sotith China Sea. 

"Don't forget our progi;unmer's wall chart, which is a big hit each year!" 
rematked one resourceful editor who had wallpapered her baduoom with 
chitrts frtim previous years. 

"Aw, I (itjn'l have room on my walls for another poster," grttmbled one 
worker, "I,et's try somelhiug different — suitiething readers will really lemeiu- 
her this issue by." 

"I've got it!" tried a voice of reason in the midst of impending chaos, "A 
folding progtamming card that users can tear out of the magazine ant! eas- 
ily refer to while computing!" 

"Those ideas are great," .saitl the grizzled editor, "but I insist on one 
thing; This issue must cotUain somcihing for everyone, "farget the articles to 
adtliess new ctnnputer owners, expericncctl conipuierisls, novices, prograin- 
meis, non-programmers, dabblers and dynamos. There nuist be something 
heie for everytine, no mallei uhai their level of e\f>ertise." 

.So here you have it— our fifth annual Special Issue, full of fun and solid 
Cf)4 and C-128 inforniatioir thai you'll watu to refer to thrimghout die year. 

V'ou'll learn some fundamental programming techniques and, at the same 
time, im]nove your progiamming skills. Answers to your Commodore com- 
puiiug questions. Neverbeforc-published Magic tricks. Blockbuster pro- 
grams, games, appltcalions, titilities, tutorials. I'lus, a chance to win a 
complete 12KD conqiutcr system woiih over SI 400. And, \hv piere (k r«u- 
tinuc. our unitjue ])rogrannner's reference card that you can just tear out of 
the magazine and easily carry arotiiid in your shirt pocket. 

For those who are familiar with our j)revious issues, yon can eK])ecl more 
of the same quality editorial. For diose who arc new to RUN, welcome! 
You're in for a treat. 

Dennis Brisson 
Editor-in-Chief 



H t S 



M'l'CiAi.issuK wim 



GIIVE DUIY! 



■fldven^ul 






wi 



'&mmB wmmrnn m mm 



the word on'some oflne mosl^.cil.x^4?i^^ 



L#Bl|P|ltikli 



tol^feiitiL 



while battlJ4igTi5^i-|g 
JTYJets.helieopTerS" 



\ CommodBT* 64:iC 
"^ , \ Suggested Retail 
. ^\ Price: $34.95 
\J5ee your 
etailer or call 
' 1-227-6900 
der direct. 






ABSOLUTE 

i: N T C R T A I N M t N T 



_^l' l.y.- i^'i 'v.uv' ;«''v»i' .'.ml , 






;'<..»'fi.1*'"H0Rr!)fci- 
.;: AfeOLUTf ENTFHT, 
•:■; fN^ERIAINMENTrlfJC:';' 
g) >.!P 1988 ABSOLUTE ENTtRI 



iSH Ttm, i 



■JDWim^S" i^Crfr:-' 




Magic 



ITiis is our fifth Special Issue Ma^, containing some 50 Magic tricks. 
Unlike most of tJie previoiLs Special Issues, where we included the best tricks 

from the year's regular issues of RUN, this time all the tricks are brand nmo. 
So warm up your machine and bring some magic to the new year. 



Compiled by TIM WALSH 



LKT'S TALK ABOUT ihe weather a momenl. The summer 
ol '8H (vill l)(.- vcinembfted by Ncu- KuHlancieis as ihe Tlum- 
(k-rstonn Siiinmci-, witli one stonii following anolher from 
hilejiiiie to late August. The Fre(|uem hglilnitig also makes 
silling ;)i iho tonijiuter and typing in Magic tiicks a thtilling 
Imt (langernus s])ort. 

As a suniu ajjptoathes, most folks turn off their computer, 
television and oilier eleetrical devices, and if vou doti'i, von 
should. Moreover, althougli yon may keep your tompitter 
systems plugged into power strips equipped with on/off 
switches, even the best surge-jjroteetors don't guarantee them 
imnnmiiy Ironi lightning dainagc unless they're impluggcd 
from the wall outlet. 

Oh-oh. I see white ihislies through the wiirdows, so I must 
(|uickly save what I've written so far, and then unplug my 
system. I hope RUN readers will heed my hint when ihey 
read this Special Issue months from now. 

—Tim Walsh, Magic Columnist 



7. C-64 Programming 

C-64 Sight Saver 

The C-Ws 11) colors look great, but getting a favorite 
screen, border and character-color combination involves a 
tirneconsuming process of finding the right Poke commands 
and kevjiresses. That's why 1 wrote (:-64 Sight Saver. Just load 
and run ii before a progranmiing session. Yon'II then be able 
to change the background, border and cursor colors at will 
by holding down the Kl . F3 atrd V5 keys, respectively. A built- 
in delay allows about one second between color changes. 

REM C-64 SIGHT SAVER - MARC TEMANSON 

:REM*250 
10 FOR X=49152 TO 49223 :READA : POKEX, A: NEXT 

:SYS 49152:NEW ;REM*48 

20 DATA 120,169,192,141,21,3,169,13,141,20 

,3,88,96,165,162,2131 ,0,240,15 :REM*11 
30 DATA 201,64,240,11,201,128,240,7,201,19 

2,2 40,3,76,4 9,234,165,203,201 ,4:REM*103 
40 DATA 240,11,201,5,240,13,201,6,208,21,7 

6,63,192,238,33,206,76,49,234 :REM*32 



50 DATA 238,32,208,76,49,234,238,134,2,76, 
49,234,76,49,234 :REM*232 

—Marc: rF.MANSt)N, Peabody, KS 
Clearing 64 Graphic Areas 

1 wrote this versatile machine language routine to rapidly 
clear the C-64's bi-ies screen in less than one second. L'sc it 
as a routine to clear the hires screen between loads. After 
running the program, poke the page number of the bit- 
mapped screen currently in memory in location '19]5;5. The 
page number is determined by dividing the starling liddrcss 
by y.'iti. Fen- example, a screen with a starting address of 71(>8 
rccjuires the following command t<j be entered in Direct mode; 

poKE^tdsii.aa 

If a page is not set, the program assigns a default page 32 
address (memory location 8192). 

REM 64 HI-SPEED III -RES SCREEN CLEARER - 

SAULO DE LUCENA COELHO :REM*39 

10 FOR 1= 49152 TO 49197:READ A:B=B-fA: POKE 
I, A: NEXT :REM*81 

20 IF B <> 7171 THEN PRINT "ERROR IN DATA 

STATEMENTS" : END :REM*1 40 

30 DATA 169,32,133,252,169,0,133,251,24,16 

5, 252, 105, 31, 133, 254, 160 :REM*178 
40 DATA 0,152,145,251,24,165,251,105,1,133 

,251,165,252,105,0,133 :REM*237 

50 DATA 252,165,251,201,64,208,234,165,252 

,197,254,208,228,96 :REM*222 

— SAULO DE LUCENA COKLHO. BETHESDA, MD 

64 Hi-Res Made Easy 

I lifrhresohition graphics performed from Basic on ihe C^- 
()l is a concentrated study in peeking, poking, settiiig and 
clearing that lends to discourage all but the most ambitious 
programmers. Furthermore, unless you use a hi res machine 
language utility, such as the aljove trick, setting up a hi-res 
screen frf)m Basic is a slow process, requiring about .;5l) 
seconds. ^ 



fl RUN- Si'ECIAL ISSUt: 1980 



iriJJSrUAl Kt) IIY CHllKYl. tmiJ-USHACHISTANLKV MARTUCCI 



MAGIC 



I wrote Ili-Rfs Set-Up aiitl Clear for liu' C-64 to make the 
process iiioit.' iisi^-rriendly ;itKl mucli faster. In fact, the first 
(main) program, like the above trick, cleats a hiie.'i screen 
on ttie Cf)l ill less than one second, and also sets it up for 
use with other graphics programs. It can be appetuied to an 
existing Basic program or used as a standalone. 

The second program is a short Basic jjrogram that shows 
when and how to activate the main program with a SYS 
't91.">'2 and then plot a sine wave. Users can change the 
foreground and backgiotmd colors of the hires sereen, both 
of ivhich share memory location ■49205, which is currently a 
lb for a black fc)regiciund and a white backgr<nuid. Try 
experimenting with various colors by jjoking different values 
into that location. You're certain to find uses for Hi-Res 
mode now that accessing it is much easier. 

REM 64 HI-RES SETUP PROGRAM - MIKE COHRI 

GAN :REM*77 

10 T=0 :REM*80 

20 FOR X=49152 TO 49216:READ A: POKE X,A:T= 

T+A:NEXT iREM^llS 

30 TF T <> 8980 THENPRINT"ERR0R IN DATA ST 

ATEMENTS . . . " : END :REM*175 

40 DATA 169,0,133,251,169,32,133,252,162,3 

1,160,0,169 :REM*237 

50 DATA 0,145,251,200,208,251,230,252,202, 

16,245,173 :REM*162 

60 DATA 17,208,9,32,141,17,208,173,24,208, 

9,8,141,24 :REM*209 

70 DATA 203,169,0,133,251,169,4,133,252,16 

2,3,160,0,169 :REH*a5 

80 DATA 16,145,251,200,208,251,230,252,202 

,16,246,96 :REM*162 

90 REM - HIRES DEMO PROGRAM if 2 BELOW 

:REM*223 

100 POKE 5 3280,0: REM BLACK BORDER : REM* 32 

110 SYS 491 52: REM CLR SCREEN S ACTIVATE HI 

-RES MODE :REM*23 

120 S=S192:REM STARTING POINT ON SCREEN 

:REM*238 
130 FORX= TO 319 STEP .5 :REM*4 

140 Y=INT(60+50*SIN(X/10) ) :REM CALCULATE Y 

:REM*240 
150 C=INT(X/8) :REM CHARACTER POSITION 

:REM*25 
160 R=INT(Y/8) :REM ROW :REM*213 

170 L=Y AND 7:REM LINE :REM*122 

180 B=S+R*320+6*C+L:REM BYTE :REM*7S 

190 I = 7-(X AND 7):REM BIT :REM*n2 

200 POKE B,PEEKtB) OR <2{UP ARROW)I):REM S 
ET BIT :REM*58 

210 NEXT X :REM*6 

220 GOTO 220:REM FREEZE SCREEN :REH*109 

— .\IlKK CORRICAN. CaRROLLTON, TX 

DooDLEi Displays Made Simple, Toot 

Von can disjilay Doodlel screens in your own t!-64 pro- 
grams and not have to worry about fancy programniing. 
Pecks, Pokes or Graphics modes. Just load in any Doodle! 
screen in either Direct or Program mode with the comttiand: 

LOAD •■DDFILENAME",8,1 



Next, activate my program from either Direct or Program 
mode. Whenever you want to display the screen, place a SYS 
51200 in cither (you guessed it) Program t>r Direct mode, 
and the Doodle! screen will apjjear. 

For added convenience, this routine is designed so that 
pressing the S|)ace bar ret inns the computer to the exact 
point in the program where you left off 

REM C-64 DISPLAY DOODLE i - JEREMIAH MANN 

:REM*98 
10 FOR T=51200 TO 51240:READ D:POKE T,D:CK 

= CK-fD:NEXT :REM*92 

20 IF CKo 5029 THEN PRINT"ERR0R IN DATA S 

TATEMENTS":END :REM*189 

30 PRINT"OK, TO DISPLAY IX)ODLE!, ENTER SYS 

51200" :REM*18 

40 DATA 169,59,141,17,206,169,120,141,24,2 

08, 169, 198, 141, 0,221, 32, 228 :REM*166 

50 DATA 255,201,32,240,3,76,15,200,169,20, 

141, 24, 208, 169, 11,141, 0,221 :REM*8 

60 DATA 169,27,141,17,208,96 :REM*216 

— JKREMIAH Mann, Visalta, CA 



2. C'^28 Programming 



Functional C-128 Function Keys 

.•\ny time Commodore 128 users want to work on a pro- 
gram, they can load such files from disk more easily with my 
DLoad Key Assigiunent program. 

The program, when rtm, prompts you to enter a number 
between 1 and 10, Numbers I through 8 |)rogram the ccir- 
respoiuiing fumtion key to load a flic. Number 9 lets shift/ 
run-,stop load a file, and 10 tells the hel]) key to load a file. 

Onec you've run the program and assigned a key. lisi the 
directory, move the cursor u]) to the niesnunc yon vvaut to 
load and press your dcsignatcfl load key. The ivord Dl.oad 
appears, the filetypc PRO disa])pcars antl the program loads. 
C'hange the value of LS to "RUN" if you [jicfcr to run a 
program rather than just load one. 

REM C-128 DLOAD KEY ASSIGNMENT - LEO BRE 

NNEMAN :REM*66 

10 PRINTCHRSII 47) "ENTER 1 THRU 10 TO PROGR 

AM" : REM* 21 

20 PRINT" A FUNCTION KEY, RUN/STOP OR HELP. 

":INPUTA ;REM*182 

30 LS="DLOAD"-fCHR$ ( 34 ) -t-CHRJ ( 27 ) ■^"0"-^CHR$( 2 

7 ) ■kCHR$ ( 75 ) -fCHRS ( 20 ) tCHRS ( 20 ) +CHR$ ( 20 1 + 

CHR$(13) :REM*100 

40 L=LEN(L$) :X=252:P=POINTER(L$) :REM*1 83 
50 BANK! :P0KEX,PEEK{P-f1 1 :REM*50 

60 POKEX-i-1 ,PEEK(P-i-2) :P0KEX-f2,1 :RSM*164 
70 BANK15:SYS 65381, X, A, L :REM*109 

80 BANK1 :P0KEX,PEEK(P+1 ) :REM*84 

90 POKE X-fl ,PEEK(P-f2) :P0KEX-f2,1 :REM*130 

— Lko Brf-Nnkman. Erie, PA 
Re-initiauzing C-128 Function Keys 

When you exit most C-128 [jrograms, one or more function 
keys are either still re-defined lo the program's definitions, 
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or, mole likt-ly. (hey c(itu;iin nn definitions at :il!. You noi- 
mally !i;ivc ihrcx- clioicfs to icstoic tiu> keys to llicir <lef;Hilt 
CI 28 (lefliiitions: Load a hi nary or ISasic tile of previously 
suvcd key (icflnitiuns fioui disk, [y])e in \hc (iefiiiirions afjain, 
or reset iheconipuler antl lose the Basic proj^ratn in mctnorv. 
A fourth option is the hest choice: Enter ilie followinff com- 
mand in either Program or Direct mode: 

BANK 15: SYS 49425: SYS 52526, 

This is the same code used iniernally by the C-128 lo install 
tire default function key delniitioiis on startup or reset. 

—michael mcguirh, colorado sprincis, co 
Getting C-128 Hi-Res Into DoodleI 

C128 hires graphics screens can easily be loaded into 
Doodle! and Doodlclcompalibic programs. Make sure you're 
in Gra])lHcs I mode and have a drawing on the hires screen. 
Then, hold down the runstop key to halt program execution. 
Now, beiausj' you're in Ciraphits 1 mode, yini can't see the 
text you're ahum to type, hut don'l worry.Ju.st carefully enter 
the following statement: 

BSAVE"DDF1LF.NAME",B0,P7!68 to P 16192 <pre5s rciurn> 

YouT hi-res screen is now saved to disk in Doodle! form, it 
and can be loaded as a siatulard Doodle! screen. 

—Alfredo P^vdilla. Cudahv, CA 



is pressed, without disturbing the program's execmion. I'he 
run-stop/iesiore key combination is unaffected. 

—John P. Roblnson, Jac:kso\. MO 
More on Trapping Run-Stop 

In the previous trick, tlie Trap command instructs the 
C-128 to detect errors, and it can also be a useful key press 
detector for tile l un stop key. fhe following program shows 
how to conrigine the frap statemcni so that when vnii press 
the run-stop key, it will abort a menu selection and send y<m 
back lo tlie niiiin menu. Tiy I his lechnique In your next 
C-128 program. 

REM TRAPPING CI 28 RUN/STOP KEY PRESSES - 

JEROME E. REUTER :REM*136 

5 TRAP 60 :REM*217 

10 GOTO 30 :REM*1 36 
20 PRINT"STOP KEY SENDS BACK TO MAIN MENU" 

:GOTO 5 :REM*14 

30 PRINT"CHOOSE 1 , 2 OR 3" :REM*76 

4 D0:GETA$:L00P UNTIL VAL(A$)>0 AND VAL { 

A$) <4 :REM*42 

5 RUN : REM* 188 

6 CLOSE 4: GOTO 20 : REM* 5 4 

— fHROME E. REUI'KR. LADSON. SC 



BLOAD It! 

(M28 iiseis with 1571 or 1581 drives have a wonderful 
speed advantage over 1541 users. Unfortunately, many great 
utilities, games, and applications work exclusively in 64 
mode. Did you know that most m;ichine language programs 
loaded in 128 niotle will still be there once you switch to 04 
mode? .'Vboul tlie only exce|nion are those containing zero 
page work areas and copy protected commercial programs. 

So, the next time you want to load in that long .\IL utility 
for the CG4, HLoad it in C-128 mode first, type C;0(>4, then 
enter the SYS commancl to activate the program as you nor- 
mally would. It'll be up and running in a fraction of the time, 

—John Ryan. Hii.oxi, MS 

Rescuing C-128 Programs 

One of the most valuable tricks long-time C'I28 users know- 
is the program -rest lie techni<]uc with the rini-stop key. Should 
your C-128 lock up while rnnning a program in 128 mode, 
don't desjjair. Hold down the runslop key and press die reset 
button. Unless memory is corrupted by the lockup, you'll 
start up in the C128's machine language monitor. Press X 
and return, then list your program. .Most oi the lime, it will 
still be intact, 

—DOUGLAS jOUN'SON, l^RGO, FL 

Selective C-128 Run-Stop Disable 

If you write CI 28 programs, you'll like using this simple 
hut powerful command to enhance them. Just place these 
two lines at tlie beginning ol yotn' programs; 

10 rUAP l.''i 

15 IF ER = :W THEN RF5U.VIE 

By placing the Trap command in line 10. the computer 
branches to line I.") whenever it encounters an error. Ihc 
F.R = '10 in litre 15 tells the computer when the run-stop key 



2 Comparing Files 

.Most Commodore computerists know that Basic programs 
residing in memory can be comjjared — from Direct mode — 
with files on disk by using the Basic 2.0 Verify and I5asic 7.0 
DVcrify commands. If ytni'd like to try this command, type 
in a short ))iograin, such as: 

10 I'RINfLKl'S VERIFY THIS PROORAM" 

Save it to disk with the filename TEST. Immediately fol- 
lowing the save operation enter, in Direct mode: 

Vr.RIFY"TF,ST",8 (Note: C-128 users can type; DVERlFVrKST") 

You'll get a inessage on the screen stating cither OK or, if 
you made changes to the ]nogram after the save, ?VF.R[I"Y 
ERROR. While ihis process works Inie with liasic programs, 
it won't work with binary (macbinc language) or program 
files created on word ]uoressors. 

Hovvever, CI 28 users, regardless of their programming 
skill levels, can use their computer's built-in machine lan- 
guage monitor to make effective binary comparisons at ei- 
ther two binar)' files or two word processor program files 
on disk. Here's how: 

Load in the first file to compare into free memory in bank 
0. tising the command: 

BLOAD"FlLF,NAMK",iiO,['(DEC("LSOO")) 

Immediately load the second file In bank I, using the 
command: 

flLOAD ■F1LKNAMK'\B I ,P(DFC(" L300")) 

Now press the [-8 key lo access the ML monitor, and find 
the end of die first file in bank by entering: 

M I300<return> 

Keep pressing M and return until vou sec an area of empty 
memory designated by a screenful of re])eating numbers. 
Then write down the last memory location containing data i 
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from ynur first fiie, which, for demonstration purposes, is 
I'lCA. Now enter; 

C 1301) IGCA JIHOO 

The first file in memory locations 1300 to I5CA is com- 
pared with the second file in hank 1, location 1300 (hank 1 
memory addresses are prefixed with a 1). Any memory lo- 
cation thai docs not correspond is listed on the screen. 
Practice a few times with this technique, and ytnt'U wonder 
how you ever lived without your C-128's ML monitor. 

—Virgil Peterson. Kittkry, ME 
Squeezing More Into Help 

Commodore 128 programmers can redefine the help key 
as a function key. For example, the following two program 
lines reconfigure the help key io switch the 1571 disk drive 
to iMl mode. Accessing tlie help key is performed via the 
liANKlS; SYS 24812„9,„ command in line 20. 

10 A$ = CHRS(3-!) 

20 BASK l5:SVS24812..<),.,"Oi'EN 1 5,8, 1 fi." + A$ -i- "UO>M0" -*- 
AS + "iCLOSK 1 5" + C:HRS( 13) 

—PETE Low'AS. Hot Springs, .AR 
C-128 Piano Keypad 

nan your CM'Jfi's numeric keypad into a piano with lliis 
short program. Use numbers 1 through 9 to play tioies, 
the decimal point to insert rests and zero to replay your 
composition. 

S) REM KEYPAD PIANO - ANDREW WATZNAUER 

: REM* 4 6 
10 SCNCLR:PRINT"{2 CRSR DNs} 7:G 8: A 9:B 

;REM*1 1 
20 PRINT" 4;C 5:D 6:E :REM*ie5 

30 PRINT" 1:F 2:G 3:A :REM*127 

40 PRINT" 0:PLAY .:REST :REM*71 

50 DIMA(200) :F0RN1= 1 TO 9 :REM*101 

60 READN2$:N$(N1 )=N2$ :REM*87 

70 NEXT :REM*200 

80 DATA "04QF"/'04QG","04QA","04QC","04QD" 
,"04QE","03QG","03QA"/'03QB" :REM*131 

90 GETKEYA :REM*17 9 

100 IF PEEK(21 2)=82THEN N$ (A) ="R" :GOTO 120 

:REM*176 
110 IFA=0 THEN PLAY N3$ :REM*84 

120 PLAY N${A) :REM*99 

130 N3$=N3$+N$(A) :REM*117 

140 GOTO90 :REM*21 

— ASDREVV WATZNAUER, xNEW EGYPT, NJ 

C-128 Hi-Res Text Mode 

Commodore 128 owners arc going to be in for a treat 
when they see this wild trick. It displays a hi-res image and 
lo-res text simultaneously tm the 40-colunni screen. Type in 
the program, using liUW Checksum, save it and then run 
it to see an example of this teclmi(]ue in action. 

When the demo is finished, delete line 40 and save it to 
disk under a different filename. 

Now you can enter graphics commands and watch the 
effect instantly, without the usual split-screen. Tor example, 
at ihe ready prompt, enter: BOX 1,0,0,319,199. 



The [>rogratn works by toggling between Hi-Res mode and 
I'ext nuvde bO times per second to give the illusion of both 
Text and Hi-Res mode sharing the same screen. 

REM C-12e GRAPHICS & TEXT - MARCO A. GON 
ZALEZ HAGELSIEB :REM*157 

10 FOR 1=2816 TO 2837:READD;POKE I,D:NEXT 

:REM*106 

20 CO LOR 0,7: COLOR 4, 7: COLOR 1 ,15:GRAPHIC1 ,1 : 

GRAPHIC0:SCNCLR:PRINT"TEXT & GRAPHICS": 

CHAR0,0,20 :REM*137 

30 SYS 2816 :REM*153 

40 F0RI=5 TO 90STEP 5:CIRCLE 1,160,100,1,1 

72,0,360,1*2, 1 0:NEXT:REM DEMO LINE! 

:REM+244 

50 DATA 120,169,13,141,20,3,169,11,141,21, 

3,88,9 6,169,1 ,69,216,133,216,76,101,250 

:REM*98 

—Marco A. Gonzalez H.-uselsii-k 
Cladai ..-xjara, jAiJst:o. M i:\n;o 

C-128 Winning Fanfare 

Commodore 128 users might want to add tills w-iiming 
fanfare to their Basic 7.0 programs to signal victory after 
winning or attaining a high score. 

REM C-128 WINNING FANFARE - J,R, CHARNET 
SKI :REM*42 

20 TEMP025:WS$="V105T9QCFA06HC05QA06HC" 

:REM*94 
30 PLAY WS$ :REM*'i' 

—Joseph Charnetski. pi.aixs. pa 



3. C-64AND C-^28 Programming 

C-64/128 Cursor with GET or GETKEY 

.Most budding C-fj 1 ))rogranuners know liou to Hash the 
cursor with the Cel c<imniand, hut few know the techni(]ues 
for flashing a cursor vi-iih the Get and Geikey cosninaiids tm 
the C-128. 

My program fiashes the cursor in G4 mode and in both 
the 40- and SO-C^olumn modes im the C-128. When ytui fust 
run the program, it determines which computer it's operating 
in, then performs a Poke for a flashing cursor. Poke 201,0 
tnakes a cursor Hash in bl niode, while Poke 'J.'i'.lO.O uses 
both the Get and C.eikey commands to flash a cursor in the 
C-12H's 40-Column mode. SYS 52.')91 also uses Gel and (k'lkey 
to flash a cursor in the C-128's SO-C^olumn mode. 

REM CURSOR WITH GET S GETKEY - LEO W. BR 

ENNEMAN :REM*91 

10 IF PEEK(40960)THEN A=204:GOTO 40:REM 64 

MODE :REM*253 

20 IF RGR(.5)=0 THEN A=2599:REM CI 28 40-CO 

LUMN MODE :REM*129 

30 IF RGR(.5)<>0 THEN 50:REM CI 28 80-COLUM 

N MODE : REM* 179 

40 POKE A,0:GOTO 60 :REM*222 

50 SYS 52591 :REM 80-COLUMN MODE ONLY 

:REM*191 
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60 PRINT"HERE'S GET WITH A CURSOR" :REM*233 
70 GETA$:IPA$=""THEN 70 :REM*33 

— Lko W. Brenneman. Erie, PA 
Improving Your Input 

Anyone- wlicj's ever tried to pl;ice commas or colons in the 
text of ;i C04 or C-1^8 Input statement knows the ail-too- 
laniiiiar Extra Ignored error message. That's because every- 
ihing to tlic right of (lie comma or colon is truncated. I^i's 
look at this [jroblem by entering these ihrce lines; 

1(1 INi'UT .-KS 

'^0 PRINT "YOU ENTERED:" 

.10 PRINT .\$ 

Now type in RUN. At the (jiicst ion-mark prompt, enter the 
following; A,U,C;D and [jress return. The following message 
will appear on the screen: 

fEXIRA ICNORl'UJ YOU ENTERED; A 

Now it'.s lime for a little magic. Run the progratn again, 
except, at the question-mark prompt, enter "A,B,C;D". Using 
double quotes with Input stalements means no more Extra 
ignored messages! 

—steven e. weicand. west chester, pa 
Catch-All Reset 

Einally — a reset ctnntnand for any Commodore 8-bit! No 
longer will you have to use M or 128 reset commands in 
your progiains. By entering the following command in either 
Direct or Program mode, memory is cleared of Basic pro- 
grams and the cotnputer's startup screen will appear; 

SY,S PEEK(().').532) + 25f'> • PEEK(()r553S) 

To see the reset value of your computer, substitute the 
word PRINT for the word SYS in the above cotnmand, 

—Robert V. Taylor, Liitle Rouk, AR 



Vertical Tabbing Made Easy 

Though the Ci-fi-l and tM2H lack a Vertical Tab command, 
you can sometimes use Poke 2M,X {X = screen line number 
minus one) for 64 mode, and, for I'lH mode. Poke 235, X 
(X = screen line mnnbcr niinus one). For example, place the 
following command in your Basic program; 

POKE 2I4.9lPR!NT (oi POKE 23.'),9:1'RINT) 

The cursor will a(»pcar at llie bcginsiing of line 10. 

Bear iti tnind thai wbilo the.sc are handy Pokes, they're 
not lOOperecnt reliahle. Both the cursor's ])osition at the 
time of execution and the design of your program can oc- 
casionally have an adverse effect on their operation. Also, 
remember that the Print command must follow both of these 
Pokes. 

— E. Stuart JOHNSON, Athens, AL 
No More Bland Print Statements! 

Now y<m can get your C-64 and C-128 programs to print 
messages oti the screen accompanied by all the clanging and 
clicking of those wonderful low-budget science fiction tnovie 
computers. Don't put it off any longer — add my program, Sci- 
Pi Telcmessage to both your C-64 and (M2H progranis and 
])lacc your message in .'\S. .No doubt Buck Rogers would. ►■ 



ATTENTION 

ALL COMMODORE 64/64C, 

COMMODORE 128/128D 

AND AMIGA OWNERS 



A complete self-tutoring BASiC progfamming course is 
available that starts with turning your computer on, to 
programming just about anything you want! This course 
is currently used in both High School and Adult Evening 
Education classes and has also formed the basis of tea- 
cher literacy programs. Written by a teacher, who after 
having taught the course several times, has put together 
one of the finest programming courses available today. 
This complete course of over 220 pages is now available 
for the COMMODORE 64/64C, COMMODORE 128/ 
128D and the AMIGA 500/1000/2000 computers. This 
course will take you step by step through a discovery 
approach to programming and you can do it all in your 
leisure time! The lessons are filled with examples and 
easy to understand explanations as well as many pro- 
grams for you to make up. At the end of each lesson is 
a test of the information presented. Furthermore, ALL 
answers are supplied to all the questions and programs, 
including the answers to the tests. Follow this course 
step by step, lesson by lesson, and turn yourself into a 
real programmer! You won't be disappointed! We will 
send this COMPLETE course to you at once for just 
$21,95 plus $3.00 for shipping and handling. If you do 
not think ttiat this is the best self-tutoring course 
you have yet come across, then just send the 
course back to us within 10 days of receipt for the 
FULL $24.95 refund. Ttiat is our written guaran- 
tee. 
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FOLLOW-UP COURSE 



) 



Also available, a 200 page course exclusively on 
sequential and relative files using a unique approach for 
those with very limited file programming experience. Set 
up your own personal and business records! - same 
author - same guarantee - same cost. 
Fill in the coupon or send a facsimile. 



NAME; 

ADDRESS: 
CITY: 



RU 



STATE/PROV: 



CODE: 



; I desire the BASIC programming course [^ 

: I desire the FOLLOW-UP course on file handling □ 

The computer that the course is needed for: 

COMMODORE 64/640 Q COMMODORE 128/128Dn 

AMIGA 500 D AMIGA 1000 □ AMIGA 2000 D 

, Send cheque or money order (in the currency of your 
country) for just $24.95 to: 

Brantford Educational Services 

• 222 Portage Road 6 Pioneer Place 

.P.O. Box 1327 or Brantford, Ontario 

■ Lewiston, New York 14092 N3R 7G7 

Fax: (519) 769-7882 Telex; 061-S1260 
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f) REM 64/128 SCI-FI TELEMESSAGE - RICHARD 

PENH :RBM*186 

10 INPUT"ENTER A MESSAGE" ;A$ : REM OR USE '1 

A$="SAMPLE TEXT'" :REM*71 

20 FOR L=54272 TO 54296 : POKEL, :NEXT 

: REM* 20 
30 POKE 54296,1 5:P0KE 54277, 0:POKE 54278,2 

40:POKE 54273, 34:POKE 54272,75 :REM*35 
40 POKE 54284, 0:PQKE 54285 , 240 :POKE 54280, 

14:P0KE 54279,24 :REM*39 

50 F0RT = 1 TO LEN(A$) :PRINTMID$(A$,T,1 r'lCO 

MD @}{CRSR LF)"; :X=X+1 :IFX<2THEN 70 

;REM*55 
60 X=.:POKE 54276,1 7:P0KE 54283 ,1 7 :POKE 54 

276,16:POKE 54283,16 :REM*107 

70 FORY=1TO20: NEXT: NEXT: PRINT" " :REM*1 76 

—Richard Pknn. MoNTRt:AU Quebec, Canada 
64/128 Drop-Down Menus 

i'rogramiiR'rs who've longed [o add the sleek look of a 
professional drojidown mcnuing system to their C-Q'i or 
C 128 progriuns will now find their dream come true. Here's 
a diopdown menviing system ihat'll w(uk in both ()4 and 
Via modes! Type it in, using /^L'.V's Checksum program, save 
a copy, and then run it. It Ijegins by printing a row of eight 
menu selections across the top of (he screen. (Note: With 
slight modification, it could take full advantage of the width 
of the C-128's 80-column screen.) 

Next, press a number from 1 to 8, wnd the corresponding 
menu selection drops down beneath the number chosen. 
Use the cursor keys to move between the o])lions in the drop- 
down menu and select the option desired by pressinj^ return. 
For demonstration purposes, the program then informs you 
of your selection. I'm sure you'll fmd this routine has almost 
unlimited potential in programs using menus. 



REM DROP-DOWN MENUS 



J.R. 



CHARNETSKI 

:REM*82 
10 POKE53280,2:POKE53281 , :NS=24 :DIMDM$ (NS 

):L$="{12 SPACES)" :REM*11 

20 FOR I=1T0NS:DM$(I)="OPTI0N "+CHR$(64+I) 

:NEXT:RV$="{CTRL 9 ) " :HL$="{CTRL 2)":MC$ 

="{CTRL 7}" :REM*74 

30 PRINTRV$HL$"{SHFT CLR}MENU: 1{2 SPACES] 

2{2 SPACES) 3{2 SPACES) 4 {2 SPACEs}5(2 SP 

ACEs)6{2 SPACEs}7{2 SPACES }8{11 SPACES} 

{CRSR LF)"CHR$(148)" ":GOTO 90 :REM*11 4 
40 IF M THEN FOR J=1 TO 7: PRINTTAB(M+3 ) " (C 

RSR UP) "L$" {CRSR UP)":NEXT :REM*18 
50 M=X*3:N=M-2:S=N:FORJ=1T07:PRINTTAB{M+3) 

RV$MC$L$:NEXT :REM*25 

60 PRINT" (HOME) {CRSR DN) " :FORJ=NTOM: IFS=J 

THENPRINTTAB(M+5 ) RV$HL$DM$ ( J ) MC$ :GOTO80 

:REM*22e 
70 PRINTTAB(M+5)RVSDM${J) ;REM*25 

80 PRINT: NEXT :REM*225 

90 GETA$:IFA$="{CRSR DN)"ANDMTHENS=S+1 :0N- 

(S<=M)GOTO60:S=N:GOTO 60 :REM*63 

100 IF A$>"0" AND A$<"9" THENX=VAL(A$ ) :GOT 

040 :REM*123 

110 IF A$<>CHR$(13)ORM=0 GOTO 90 :REM*76 



1 20 REM USE ON S GOTO/GOSUB FOR BRANCHING 

:REM*211 

130 PRINTHL$"tSHFT CLR) {CRSR DN)YOU SELECT 

ED "DM$(S) : REM* 16 

—JOSEPH CHARNETSKI, PLAINS, PA 

Illegal Quantity Error Trappfng 

The next lime you get an Illegal Quantity Error message 
in a [jrogram such as Wt/jV's Clhecksum ))rogram, don't panic 
and rush to cancel your subscri[)tion because you think the 
program is full of bugs. Yoiu' computer is simply trying to 
tell you that you made a mistake in the numerical Data 
statements. Here's a sure-fire solution to ibc problem: .Ap- 
pend the following six lines to the end of the program in 
question. 

600(10 AA = 

6000 1 A A = A A -h I : READ AD 

6000L' IF IN'HAB) <> AU TMEN (30010 
60003 IV AB < OR AB > '15h fHHN liOOlO 
(iOOO-i (^OrO (iOOOl 
6000;-) PRINT AA;AB:SrOP 

Once they're appended, enter RUN 60000, and this pro- 
gram begins checking your Data statements for missing com- 
ma.s, periods mistyped for commas and other errois, When 
it encounters a problem, it'll prim both the number and the 
number's position (1,2,3, elc.) in the Data statemenl.s. List 
the program, make the correction, then enter RUN 60000 
again to find more errors. 

When OUT OF DATA KRROR appears on the screen— 
don't panic — -it's merely a signal that all of the data elements 
have been checked. Delete lines 60000 through 60005 and 
save your program, ivhich should then work well. 

—John We-:i.i.nkh, IHmv Huknkmk. CA 
Resolving Illegal Quantity Errors 

The Illegal Quantity Error message is usually produced by 
the presence of typing errors in Data statements. Over the 
years, C^funmodore computerists have swapped solutions to 
the message as native Texitns swap chili recipes. (;ase in 
point: Magic Trick S49C (May H)88) showed C-M users how 
to find the line containing the offending data number with 
the Direct mode command: 

PRINT PEEK(63) + PEEK(64)*256 

My addendum (o (his bit of Magic is a C-128 version of 
that command: 

PRIM l'I-:EK{(i5) + PEEK{(;6)*256 

Like the C-64 version, it reveals the line number of the 
data statement in error. If neither of these tricks reveals the 
line causing the error, add the following two lines to the 
program in question: 

1 KKAD A: IK A = INT(A) THKN 1 

2 I'KINf Pl'.KK(fW) + Pt''.KK(04)*2;-)f5 

(Note: C128 users uuist substitute I'RINf PKEK(6r>) + 
PKEK((>6)*2r)6 in line 2.) 

This process detects any ])eriods mistakenly typed between 
data numbers. Once you've changed anv periods that don't 
belong in a listing, yoti'll eventually see an Out of Data error 
in 1 message, but that's all right. Just finish off by deleting 



II! RUN .Sl't.Ci.At. t.S.SUK I'MJ 



MAGIC 



lines 1 ami 2, and y<ni should have a working version of your 
program. 

— HKLKN Rout. Los ANCKLI'IS, CA 



100 PRINT"FIVE":RETURN :REM*49 

110 PRINT"SIX":RETURN :REM*249 

— 1!i;i.i:n Rom, Los ANiiia.i-s. c;a 



Too Many GoTos and/or GoSuits? 

In most tiasic programs, cotiipmcd Go Ids and Go.Subs 
musi bf ])hucd in one line ol code to work properly. But 
ulial if ymi have so many that ;ou rnn'l get them to ill on 
a tiner Merc's an easy sohilion: Put the additional GoTos or 
(SoSuhs on H second line ;ind lell ilic cuminner to skip ilie 
first line if a variable exceeds a ceiiaiu value. My |)r(>grarii 
clearly deiuoiisttates how this ptoeedute is aeeoiuplishcd; 

REM EXTRA COMPUTED GOTO'S S GOSUBS - HEL 
EN ROTH :REM*3e 

10 INPUT" ENTER A NUMBER FROM 1 TO 6";N 

:REM*17 
20 ON -(N>3) GOTO 70 :REM*1 53 

30 ON N GOTO 40,50,60 :REM*8 7 

40 PRINT"ONE":GOTO 10 :REM*200 

50 PRINT"TWO":GOTO 10 : REM* 5 8 

60 PRINT"THREE":G0TO 10 :REM*1 

70 ON N~3 GOSUB 90,100,110 :REM*161 
80 END :REM*208 

90 PRINT"FOUR": RETURN :REM*1 52 



4. Appucation Programs 



8x8 Graph Paper 

When you're (iesigiiiiig cusloiii (haraelers using a loiu 
editor, you'll save yourself lime and minimi/e frustration liy 
dfsif;iiiug your (.luitacters ahead of time on grids that match 
Gommodore.sti een eliarncteis' 8 x S dot matrix. Mv f)iogram. 



lint a 



; ■ .'['■" 

8x8 C;raph Printer, allows virtually any printer to p 

total of 4H 8x8 graphs per 8 '/a X 1 liiicii page. 



REM 8X8 GRAPH PRINTER - J.R. CHARNETSK 
I :REM*212 

10 PRINTCHR$(1 47) "POSITION PAPER, PRESS A 

KEY TO PRINT" 
20 GETK$:IFK$="" THEN 20 
30 NS=8:PRINTCHR$(1 47) "WORKING. . ." 
40 OPEN4,4:CMD4:PRINT 
50 F0RA=1 TO NS:F0RB=1 TO 8:F0RC=1 



REM*226 
:REM*3 
REM*123 
REM*255 
TO 6 
REM*! 83 



^ Make It A Merry Christmas :^, 



|p> V for the Commodore user on your list ^ 



e COMPLETE Lottery TRACKER and WHEELED 

The MOST COMPflEHEfiSiVS UiUery Software Program ort Itie Market Totisy lot PICKS 
games is now available for Comwodore 64/128 ! Loot; at ALL ot Ifiese Features: 

• Record Hundreds of Past Winning Lottery Numbers and Datesf 

• Track as many State or International Lottery Games as you wantf No Limit! 

• Produce EXPERT Trend Charts to indentity Those HOT and DUE Numbers! 

• Analyze Hits A ways: Bell Curves. Recency. Percentages, Frequencies, MORE! 

• Produce STATiSTICS for ALL NumtKrsltou Play - No Randomiring Here! 

• Seiect Numbers to Play 5 DitlerenI VJaysl You Choose what TOU Like Best! 

• Check Vour Bets fct WINNING Combinations! Records ALL Systems Played 
including BONUS NUIvlBER, where applicable. 

• Print Charts, Statistics, Recorded Numbers and WHEELING SYSTEMS! 

• We Include FREE Addresses and Phone Numbers (where available) of ALL State 
and International Lottery Commission Offices for Winning Number Lists. 

Includes 20 ol the Worlds MOST Popular WHEEUNG SYSTEMS! 

Use your compuier to improve your odds HUNDREDS ol TIMES ! 

Look At What Our Custofners Have To Say: 

•I Mil M CASH PnillS m nm e weeb wan inehelpolyoor progrsm' !tie TrscMr ma Wliesl& IS Itie MST 
loner)! soltwarapfogium I have used amsll. .Over $3tlX>Dlieiid3nerALi expenses'' B.C.. eiPsso. TX 
Iwon^ cas/i piUes ine nrsi 2timeslussdltie trxter xitl Wtteelerf Si.M.. Vamington, DL 

"me COMPIEJI Lattery TPACKER and WHEEL ERis SPECtACULAHr EO..Ne«roik,m 

Many, Matiy More Letters troin CASH WINNERS on File! 

No Mtier lonery softAare package ptcmita a'l ot these (eaturEs! I'lihen w say complete. WE MEAN 
COMPLETE Easy tDuse MENU DRIVEN SCREENS Pnnter ii>d Color Moniw recommended bul rrot 
required lor use. All wtieekng systems and prooram features new take only SECONt^ to complete! Vou 
will LOVE this piofliam In COLOR! Why pay UP TO S150.00 tor less? 

Don't Hesitate! Place your Order Nowl 
ONLY: $34.95 Plus S2.00 s&h 

Now Sold in All 50 States and 17 Foreign Countries! 



The Daily Number Buster! 



TM 




tou wool believe it until you see it. A COMPLETE Soltware Package fof 3 S 4 digil 
NUMBER GAMES! 

• StorB$l0ffsofpastw!nnirtfl3li4diflitmjmhe/sand dates! 

• Print Charts, Stats, Position Hits S mote! 

• PositionHltChandispiays HOT & DUE numbers by DramiWinnere! 

• Choose Irom 1 bet methods ! 

• Eyery straight & combination bet and all BOXING BETS! 

• Saye your bets S revie-w against mnning numbers! 

• Compete Odds explanation chart on the BUSTER DISK! 

• ...and MUCH, MUCH MORE! 

If you play the Daily Number Games you will quickly see the advantages {and 
REWARDS!) ot working with your compuier to analyze and tint) those WIMtJIKG 
3 & 4 digit numbers! 

Call or write for Your Copy Now! opty: $34.95 f^usszoo ssh 






The 50 System tj)ttery Wheeler Plusr'* 

so NEW wheels PLUS the attlity to add your own favorites )o the system! 

Use WiTHOUT the Lottery Tracker OR Link to the Tracker Oata Base to extract the 

Hot & Due Numbers! 

m GUAFiANTEED Wifining Systems! 

Introductory Price oniy: $24.95 pius szoos&h 



^tf»»'- 



w&visa Call Toll rrr5l-800-824-7888, Ext. 283 

rorCawJianCnns: 1-800-544-2600 



Entertainment On-Line*, Inc. m. ooKBsayvesiboto.MAoisai 

The PREMIERE Lolls ry Software and Audio Products Company 

MC. Vi$d and MO crOff 9 3fi<ppe{f within 1 w««K P\tA%«ti\{Mi^Mii wMlc$ l^r Perv]n«h C rtKks. 
MA neKMtfib add 5'^ %aiti tu [^^frf^ Inritjiries a uu^^* Cocyrig^^ EmefiairvnflfijOn'Lj'w*, tnc , 1S£0 



Circle 411 on Roader Service card 
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60 PRINTSPCn-{C>1 )*4J; :REM*116 

70 F0RD=1 TO 8:PRINTCHR$(207) ; :HEXT 

:REM*2'10 
80 PniNTCHR$(U5) ; :NEXT :REM*4 

90 PRINTCHR$(8) : PRINTCHR$ ( 1 5 ) ; :NEXT 

:REM*146 
100 FORE=0 TO 5:PR1NTSPC(1-(E>0>*5) ; 

: REM* 3 5 
110 F0RF=1 TO 8:PRINTCHR$(163) ; :NEXT:NEXT 

:REM*1 45 

120 rORG=1 TO 3: PRINT: NEXT: NEXT : REM* 199 

130 PRINT#4:CLOSE4: PRINT" (CRSR DN)ALL DONE 

" :REM*89 

—Joseph Charnktski, Plains, pa 
C-64 Screen Sweeper 

ir a C-G4 i)n)frr;im you're writing needs a screen (kMr 
routine, try thisuncdnveinlonu! one. It uses ii reversed j;r;i]jli- 
its tharntter thai almost instantly covers the screetr fVoiii 
lOjj lo bottom, then reverses the process to reveal the cleared 
scieeii. 

REM 64 SCREEN SWEEP - J.R. CHARNETSKI 

:REM*31 
10 C!t$ = "(SHFT +)":SW$="(CTRL 91" :REM*165 
20 F0RI = 1 TO 40:SW$=SW$ + Cii$:NEXT :REM*148 
30 SYS 58726:FORI=1 TO 25 ;PRINTSW$ ; :NEXT 

:REM*64 
40 F0RJ=1 TO 12:SYS59626:NEXT:SyS58692 

: REM* 2 7 
50 REM RETURN : REM* 50 

— JOSKPH CHARNKTSKl, PLAINS, PA 

C-64 AuTo-RuN Made Easy 

Use the ftillouiiig prognim to make a two-block aiitorun 
file ill at automatically runs your CCii programs when it's 
loaded with the syntax I.OAD'"Fir.F.NAMF.",8,l, Type in this 
prof^iam using A'LW's (Ihecksum, save it to disk, then rtin it. 
V'oii'll first he promfjled to enter the iiiune ol' the twn-hlnck 
hoot file. This is the file you'll loud with the above syntax in 
order to auto-run ihe desired file. Kiitei the boot filename, 
and the prngram automatically saves itself to disk. Next, 
you'll be prompted to enter the filename of an existing 
ptof^ram on disk that you want to auto-rmi. 

VV'hiU' lollinving this sequence .sccnis a bit confii.sing, rest 
assureii ihal it is easy to peiforni. You'll be able to amo-run 
Basic programs in no lime. 

REM 6 4 AUTORUN MADE EASY - LARRY E. SUTT 

ER : REM* 165 

10 FOR J=1 TO 50:READX:CK=CK+X:NEXT:RESTOR 

E : REM* 94 

20 IF CK06221 THENPRINT"ERROR IN DATA" : EN 

D :REM*152 

30 INPUT"ENTER NAME OP BOOT FILE";BP$ 

:REM*1 80 
40 INP1JT"ENTER boot NAME";DN$ :REM*134 

50 BN$=BN$+"*" :F0RJ=1T01 5:BN$=BN$+"-" :NEXT 

:REM*1 5 
60 BN$=LEFT$(BN$,161 :REM*15 

70 0PEN1 ,8,4,"0:"+BF$ + ",P,W":PRINT)^1 ,CHRS( 

0);CHR${1); :REM*187 



FORT=256 TO 51 4: PRINTS 
TO 50:READX:PRI 
TO 16:PRINT)if1 , 



90 F0RT=1 

T 
1 



F0RT=1 

XTT 
110 CLOSE 1 
120 DATA 1 

0,1,32 
130 DATA 1 

60,255 
140 DATA 2 

69,8,1 
150 DATA 7 



:END 

69,0, 

,136, 

62,53 

,169, 

55,13 

33,12 

6,174 



32,144,255 

255,169,16 

,160,2,32, 

0,32,213 

4,45,132,4 

3,32,96,16 

,167 



1 ,CHR${2) ;:NEXT 

:REM*186 
NTiJil ,CHR$(X) ; : NEX 

:REM*90 
HID$(BN$,T,1 ) ; :NE 

.-REM* 7 3 

:REM*26 
,169,2,166,186,16 

:REM*71 

189,255,162,255,1 

:REM*ie6 

6,169,0,133,122,1 

6 :REM*32 

:REM*24 



—Larry K. Sui"n;R. Stkrling Heights, MI 
A Different Type of Auto-Run 

.Some niaLhine language (MI.) proj>ranis not only contain 
Basic [)tojrrains that nectl to he loaded and run, but also 
require you to enter a SYS xxxxx command to activate the 
ML code, A classic exain])le is the commercial pinball arcade 
game, David's Midnight Magic. Not only does D.M.M require 
a IVasic biio! jjrograin, but you must enter SVS 4'.ltr)2 lo 
com[)lete the loading (jiocess. 

lielow is an example !)I a C-64 Basic boot program that 
can he used to streamline the proress of booting MI. pro- 
grams IVom disk without requiring the user to enter SYS 
cotnniands to activate the program: 

1(J i'KlNT (;HRS(147):PRl\r;!'RlN-l 

an PRIN'T-LOAIV CUKSCM) "KILKNAME" CURS (34) ".8,1"; 

RF.M KN TKR Ml. III,1,\,\M1-: 
30 I'RINI: PRINT: PRINT: I'RINT 

40 PRIN I ".SY.S xxxxx": RLM MN'I'KR RKQUIRKD SYS NUMUf.R 
50 l'Rl\rr,HR3(I9): POKE l'.i8,2 
60 POKK 6:U,13:POKE ti32,l:l 

.After you type it in, save it to the disk eontaining the ML 
programs requiring SVS calls. Substitute the name oi' the 
Ml. file for Ihe word l-'ll.KNAMK in line 2(1 and the SYS 
number lor the xxxxx in line ■!(). This loader v\'orks by 
ptinliiig the (cmimamis on screen and aclivaling them by 
auiom;uically picssing return after eaih e<immaiKl is primed. 
Line 50 homes the cursor and tells the tinnputer to expect 
two keypresses (up to HI keypresses aie possible). Line (lO 
delivers those keypresses (two returns), 

—HELEN ROTH, Los ANGELES, CA 



Line Locker 

Teaeliei s and classroom instructors vvho routinely gi\ e tests 
on computers are just one example of Commodore users 
who occasionally need to make Basic program code hidden 
from users lo prevent tmauthorized examination or altera- 
tion. Line Lock lets you modify C (i-l ami C-l'iH piograms 
so th:it ihe List Kunmand will display only the line mnnbers, 
noi ihe Has if code itself 

Type in and save I.iiu.- Lock, then run it. Place the disk 
ctmiaining the file to l)e locked into the disk drive ami, at 
the prompt, enter the cinrent filename, a comma, and then 
the new filename. The new filename is a "locked" version 
of the first file, which remains unscathed. 

Continued on [t, 90. 
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NOW! Your IBM 

Tandy 
TRS-80 
Apple 
Commodore 

or 
Compatible Is . . . 

a COMPUTER that 

WRITES PROGRAMS 

FOR YOU 

for 
y2 OFF * 



* Save Vz or More on this Special Limited Offer 
Limited Offer Good for 30 Days 



SAVE! Over Vi OFF an 

AUTOMATIC PRO 



To Computer Users, 

^Now you can tell your computer what you wont and your computer can write your 
programs for you In minutes to your custom design— easily and without requiring any 
programming background from you. . .with QUIKPRO + II. 

Breakthrough In Micro Computer Technology 

You know your computer is fantastically last. . .once it knows what to do. Programs 
and software are what makes It happen. Every task your computer performs for 
you requires some kind of program. Until now. you could only get programs in 
just one of two ways: buy a canned package that many times doesn't meet 
your needs or hand over hundreds or thousands of dollars for a custom 
programming Job. Now, you have a better choice . , . 




for your IBM or Compatible, Tandy, 



Programs Without Programming 



Automatic programming Is what It's all about, And, v\rfth QUIKPRO + II the 
Automatic Program Writer, your computer can actually write programs | 
for you. You can quickly generate a new individual application 
program when you want It with QUIKPRO + II . Each program you 
create Is a completely stand alone program that will run In the 
standard BASIC language you already have on your own 
computer. 
Best of all, you do not have to become a programmer to 
use QUIKPRO + II. The QUIKPRO + II software becomes your 
personal programmer, waiting to do your work for you 
any time of the day or night you choose to use II. 

How To Get Over V2 Off 

Like all successful software QUIKPRO + II was originally sold for well 
over S100 per copy, and we hove sold thousands. So why are we 
willing to let you buy at less than half price?. . .because our tests prove 
that at 329,50 we sell over ten times as many. Obviously this cuts our costs 
because of the huge volume, so we pass all savings dlreclly to you. 
So, ORDER Now. Call Toll-Free 24 Hours or Mall In your Order. This offer Is limited to 
those computer types listed on the Special Discount Order i^rm, 



APPLICATION CHECKLIST 

Here ore a few of the thousands of possible appllcatlofis yon can do with QJ1KPIK5 + II, . .And most con be created In o few minutes. 



BUSINESS USES 

Customer Filing 
Master Files lot 
General Ledgers 
Accts. Recelv. 
Accts. Payable 
Teleptione Logs 
Telephone Lists 
Hotel/Travel/Data 

Reservotlons 

Pfoperty Control 

Library Catalogues 

Inventories 
Key Employee Data 



EDUCATIONAL USES 

Student Records 

Grade Records 

Teocher Usts 

School Usts 

Program Design 

Course Design 

Tuition Data 

Enrollment Data 

Property/Equipment 

Athletic Schedules 

Player Statistics 

Test Scores 

Menus 



HOME & HOBBY USES 

Personal Records 

Check Usts 

Club Roslers 

Telephone Directories 

Recipe Flies 
Medical Information 
Insurance Records 

Tax Records 

Chflstmos Gitt Usts 

Deposit Files 

Due Dates 

Mortgage Data 

Travel Records 



Not to mention the unlimited number of general filing, and crossfiilng, technical and scientific uses. 



\ 



d get QUIKPRO + 

GRAM WRITER 

TRS-80 or Apple Computers. 



The AlNn-One Program 

The custom programs you can 
generate trom the new QUtKPRO + ll 
will let you perform Personal Filing, 
Fast Dote Retrieval, including 
Ctianges, Deletloris and Searches. 
You can selectively Print Custom 
Letters, all kinds ot forms (If you 
have a printer). This new feature Is 
called Free Form Reporting. You 
can even Include calculations In the 
programs you create. QUIKPRO + 11 Is 
perfect for creating Inventory 
programs. You can use QUIKPRO + 11 
to prepare letters and selectively 
address the letters to only certain 
people. And of course you can 
SORT your reports so that they print 
out Information In the order that you 
want It, or print out only certain 
information. In fact, you can ootualiy 
use QUIKPRO + II to create an easy 
to use Data management program 
or a simple spread sheet. You can 
do all of this and more with this All 
in One Program. . .and the best 
part Is that you need no BASIC 
programming experience. 

How Does It Work? 

You can do It simply by answering 
easy questions that appear on your 
screen, You won't have to learn any 
Computer commands or special 
Programming Lanuages. Instantly the 
QUIKPRO + II software instructs the 
computer to write efficient error free, 
BASIC Programs and puts the 
Programs right onto your own disk, 
ready for you to use. 

The resulting custom program is 
truly a separate BASIC program, You 
can list It, You can modify It. You can 
customize It to you own liking. You can 
actually see what makes It tick. 



I 
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What People Say About QP Software 

From a GENERAL CONTRACTOR/CONSTRUCTION 

COiVIPANY owner: 

"The program seems to be good and I must 
compliment you on tt)e documentation. It is 
the best of its Idnd that t have seen." 

From an INSURANCE AGENCY MANAGER: 
"/ wouid ike to compttmenf you on. . .an 
excellent. . .program." 

From a HOBBYIST USER out In Oklahoma: 
"I thought I would drop a quick note about 
QUIKPRO. 1 have It running and it will do what 
t bought it for. I am very pleased with it. . . " 

This from a Vice-President of a Federol Savings & 

Loan: 

'7n tfie past several weeks, I have used 
QUIKPRO software on four different programs. 
I am pleased with the results achieved so far, 
With your help over the telephone, i have 
created an /ISI file for a large data file that 
was already In existence, and the data file 
now wori(s with an input program created by 
QUIKPRO." 

Proven and Widely Used 

Businesses, Schools, Hobbyists and Government 
are among our thousands of users. . . 



Johns Hopkins 
U.S. Department of 

Agriculture 
Proctor & Gamble 
Federal Express 
American Express 
Monsanto 
NASA 

Blue Cross Blue Shield 
Ford Motor Company 
Duracell International 
Westlnghouse 
General Electric 
Random House 
U.S. Navy 
Tandy Corporation 
NCR 
DuPont 
RCA 

Satellite Broadcasting 
New York University 



Brooklyn High School 
Blue Ridge School 

District 
Public Schools of 

Grand Rapids 
University of Alabama 
Exxon 
AT&T 

Texas Tech 
Ciemson Universit/ 
U.S. Dept. of Energy 
U.S. EPA 

University of Maryland 
Mobil Chemical 
University of Arkansas 
University of Tennessee 
Speed Queen Co. 
Rhode Island Hospital 
University of Oklahoma 
University of Hartford 
Many, many more . . . 
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Special Discount Offer 

ORDER NOW 



Va OFF 

or mord 




NOW! Your IBM, Tandy, 
TRS-80, Apple, Commodore, 
or Compatible is . . . 



a COMPUTER th 
WRITES PROGRAMS 
FOR YOU for V2 OFF* 



ORDER NOW-Take Advantage of this 
SPECIAL OVER V2 OFF DISCOUNT OFFER 



Yes, send me QUIKPRO + II for my . 
Check your computer type: 

Reg 

Item No. Price 

n t1015) IBM PC, XT, AT SI 49 

a (1015) IBM Compatible 149 

□ (1015) TANDY 1000, 1200 149 
D (1015) TANDY 3000 149 

□ (1017) Apple lie, lie or 

Compatible 149 
n (1016) Commodore 64 

with Disk 149 

D (1014) TRS-60 Model 4 149 
D (1022) COLOR COMPUTER 11 

or III (Radio Shack) 149 

D (1013) TRS-80 Model 3 149 

a (1011) TRS-80 Model 1 149 

□ (1012) TRS-80 Model 2, 

12, or 16 149 

D(1018) OSBORNE 1 149 
D (1020) KAYPRO 2 

D (1023) KAYPRO 4 149 

SHIPPING & HANDLING 

TOTAL ORDER 



YOU MAY ORDER BY MAIL OR 

CALL TOLL FREE 24 HOURS 
1-800-221-3333, Operator K885 

Payment By: D VISA/MastarCard D Check or Money Order 

D COD D Bill My Company (mmt bs dm foisd ft hove company P.O.) 



YOU 
PAY 

$2950 

for any 

computer 

type 

Limited 
Offer 
Good 

For 

30 
Days 



VISA/MC # . 



.Exp, Date. 



By Mall: Name_ 
Address . 
City 



. State . 



.ap. 



Send To: 



ICR Future Soft 

PO Box 1446-DI 
Orange Park, FL 32073 



4.50 



SD tsae OGRAMAT, INC. Llmltett oHtt, lublect lo cttange. 
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NOW ENTERING THE RING... 

A WWE WINNING CONUM)! 



Game-Match Disk 
Required 




"This time, McMahon, you got that right!" Coming from the 
independent-minded WWFs Superstar & announcer, Jesse 
"The Body" Ventura, that remark rings loud like the match bell. 

On the left, the original Game-Match Disk featuring Hulk 
HoganiM confronting WWF mainstays. 
Interviews where battle lines are 
drawn, realistic ringside commentary, 
and, of course, slam-bang authentic 
WWF footage in our unique DVA (Digi- 
tized Visual Action). On the right, 
introducing the newest entry — the 
WWF Superstar Series! 

Nou) , the action and managerial chal- 
lenges you'll face continue with other 
Main-Event matches. After powering 
up the Game-Match Disk (Required), 
you then choose from two titanic 
matches ineacA volume of the Super- 
star Series — 

VOL I The Honky Tonk Man vs. "Macho 
Man" Randy Savage, who has 
vowed to protect the honor of the 
lovely Elizabeth. But with the tal- 
ents he has, the Honky Tonk Man 
has lots to croon about! AND in a 
no-love-lost match, King Hariey 

intj wt H tipro^sce^ wrauet Ihtit I ifttu vfltltn wntm Hwft M«4«n. Hafttttr ind HqOtnvuiu 




Official Product 
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Race tries to make sawdust of "Hacksaw" Jim Duggan! 

VOL 2 The HulksteriM tangles with the Million Dollar Man, Ted 
DiBiase, who won't be able to buy a title this time. He'll 
have to earn it the old-fashioned way— /ns/tfg the 

squared circle! PLUS experience the 
hot-blooded Ravishing Rick Rude 
entwined with Jake "The Snake" 
Roberts — whose cold-blooded 
reptilian friend can cool down the 
passions of many a foe. 

Micro League's WWF Wrestling. Not eye- 
hand coordination. Authentic, patented 
moves — where jour managerial wiz- 
ardry shapes the outcomes. With the 
Game-Match Disk (sugg. retail $29.95), 
you'll enter the computer ring. With the 
Superstar Series (sugg. retail $19.95), 
you'll be pinned to the screen! 

If your retailer is out of WWF Disks, don't 
do the Shake, Rattle & Roll on the hap- 
less clerk. Just call us at (302) 368-9990 
for VISAMC orders or drop us a (clothes) 

line to: 

Mif roleague Sports 

2201 Drammond Plaza 

Newark, DE19ni 

Dtiire m cLcsetive pr^^tiTir oiQit Wbi^d WmUbug FrdvnnHi ind TitinSpettt. int, ind 

HI truttrnvti d Ca Mjrvtl 'Comici Cnivpfi Mitiri iKhnMilTb) TJUi Spxtt. Inc. 
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Basic 101 



The best way to get to know your computer is to take 
the programming plunge. 





By ANNETTE HINSHAW 



If you want to know your computer 
better, try a littk- programming. A 
few brushes with the circad "syntax 
error" will have a salutary effect on 
your understanding of how computers 
work, and that knowledge will transfer 
when you need to figure out why a 
program like a spreadsheet suddenly 
does something you don't expect. 

This article introduces some pro- 
gramming fundamentals. The examples 
arc in llasic, but the programming 
mechanisms are used in all computer 
languages. You can build on what you 
learn here with books and magazine 
articles devoted to teaching this impor- 
tant way to interface with a computer. 
If you belong to a users' group, that's 
another good place to look for help. 

The r>nly way to learn programming 
is to do it, so turn on your computer 
and, as you read, type in and try the 
examples. I don't have rt)om for a de- 
tailed cx]3lanation of each computer 
command, so look u]> everything we 
cover in the user's manual that came 
with your machine. Try to relate what 
you read there to what you see happen- 
ing on your screen. 

In the examples, substitute your 
name even' place you see "Annette." In 
the text of the article, <return> means 
to press the return key. 

What Is a Program? 

A program is a numbered list of in- 
structions to the computer. Each in- 
struction, also called a statement, 
is composed of computer commands 
in a specified order. You probably 
already use commands like Load, Run 
and Open. 

When you load or rmi a program or 
open a channel to the disk drive, you're 
talking to your computer in Direct 
mode. As soon as you type the command 
and press return, the computer obeys 
the instruction and then forgets it. i'or 
example, type PRINT "ANNETfE" <rc- 




turn>. The computer will oblige, but to 
make it print tbe name again, you must 
retype ihe coumiand. 

In Program mode, statements are as- 
sembled imo a program that the com- 
puter remembers, but it doesn't execute 
the commands until you run the pro- 
gram. Each statement in tbe program 
has a line rnimber. Returtiing to our 
exatnple, if you type 10 PRINT "AN- 
NETIE" <return>, nothing happens 
unless you tyjie RUN <return>. By giv- 
ing the command a line inimber (10), 
you turned it into a program, which can 
be used over and over without retyping 
the line. To see your program, type LIST 
<return>. 

VARIABLES 

Note that you have to type exactly what 
1 say, or the program w'on't work cor- 
rectly. For instance, if you leave out the 
quotation marks around the name, tbe 
computer will print a 7,ero instead. Try 
it. How does ANNETTE become 0? Well, 
that takes a little explanation. 



First of all, the computer deals with 
two kinds of data: numbers and strings. 
Numbers have specific meaning to the 
computer, which can manipulate them 
in computations. Strings, however, are 
merely sequences of characters (includ- 
ing numerals, letters or symbols) that 
the computer will faithfully reproduce 
on command, exactly as they were en- 
tered, without doing anything with 
them that you haven't specifically com- 
manded. Tbe computer recognizes as a 
string anything that is included within 
quotation marks, .so you define a string 
by placing a sequence of characters in 
([ notes. 

f''or convenience in handling tliem 
within a program, both nimibers and 
strings can be represented by letter sym- 
liols, wliicb are called variables, because 
their value or content can change dur- 
ing program execution. 

Number variable names can cimsist of 
one or tvvo letters in any combination 
or any word not reserved by the com- 
pmer language. To tnake a string vari- 
able name, add a dollar sign to the 
end of a [umiber variable name — AN- 
NL'I'fES, for instance. Look iqi "vari- 
ables" in your nnuiual to find the rules 
for naining them. 

Back to our question. Since AN- 
NETfE is not in quotes and has no 
dollar sign after it, the computer as- 
sumes it's a number variable name, not 
a string or a string variable name. Fi- 
nally, if the computer hasn't been told 
the value of a lumiber variable, it as- 
signs a value of i^ero. 

You can define a number variable by 
assigning it a value with a statement like 
ANNE-fTE = H) <retm-n>. Type that 
siaiemcnt, followed by PRINT AN- 
NE'ITF. <rciurn>, and the coitiputer 
will return a ten. 

In writing a program, it's important 
to distinguish carefully between num- 
ber and string variable names. Tbe com- 
puter gets upset if you ask i( to tlo a i 
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computation with a string; variable or 
maiii])ul;ite a numbt;r variable lilce a 
string. (Tiicsc inistaitcs give a Type Mis- 
miiicii error.) 

Let's try a little program ming vari- 
ables. As you type it in, remember that 
even punctuation is importunt, and you 
must press return after each line. 

10 INPUT "TYPE A NUMHKR"; ZZ 

20 INPUT "TYPE ANOTHER NUMBER" 

; YY 
'M PRINT ■/:/. + VV 
40 [NPUT "TYPE A NAME"; A$ 
50 INPUT "TYPE ANOTHER NAME"; B$ 
60 PRINT A$-K" " + B$ 

Now, run the progratti to sec how it 
works. The Input commands display a 
? prompt on the screen and insinici the 
computer to wait until the user types 
something ending with a return. The 
message in quotes appears in front of 
the question mark to tell the tiser what 
information is needed, and the user's 
input is stored in the variable named 
after the semicolon. This input is one 
place where quotes aren't necessary to 
define a string; if the variable name 
indicates a string (if $ follows the name), 
the computer stores the input as a 
string. 

In lines 30 and 60, the computer tises 
the variables in Print statements. The 
user can type in different numbers and 
names eacii time the program is run, 
and the current values of the variables 
will always be the last ones typed. .Notice 
the space between the quotation marks 
in line 60. It's needed to separate the 
strings in the output. Since a computer 
doesn't "understand" strings, you have 
to specify every character, even spaces. 

You can change program lines or add 
more anytime you want. There are two 
ways to change a line. You can replace 
it by retyping it with the litie number 
and pressing return, or yt>u can edit it, 
with the help of the insert-delete key, 
and press return while the cursor is still 
on the corrected line. To view and edit 
any line that's not on the screen, type 
LIST <linc iiumber>. 

If you run into a syntax error, check 
your typing. You have a misspelling, 
a punctuation mark missing or mis- 
placed, or your commands are incom- 
plete or in the wrong order. Remember, 
every character is significant. 

You may also encounter a problem 
in what is called Quote mode; i.e., when 
the cursor is within a cjuole on a pro- 
gram line. In this situation, if you press 
a special key, such as a cursor key, the 
insert-delete key or a function kcv, the 
computer will print a graphics charac- 
ter instead of executing whatever the 



key is designed lo do. This means that 
you in effect erase whatever is sjver- 
printed by the graphics characters when 
you try, for example, to move the cursor 
to a character you want to change. If 
you get snarled like this on a line in 
Quote mode, hold down the shift key 
as you press return; a shifted return 
does not store the line, so you gel out 
of the fix and can retype the line in 
corrected form. 

To add a new line, type it with a so- 
far unused line number that places it 
where it belongs, ami press return. The 
computer automatically arranges lines 
by nimiber, no matter when you enter 
them, so the next time you list yoin- 
])rogram, the new line will appear in its 
proper place. 

Type these additional lines for the 
little program above, and then list the 
program: 

32 AB = 7,Z-YY + 219 

33 PRINT AB 

M CS^'THIS IS A TEST'iPRINT CS 

The new lines will appear between 
lines ;i() and 40, and, when you run the 
program, they'll produce two more 
lines of output. 

Notice that in line 34 the colon sep- 
arates two statements. When you're pro- 
gramming, sometimes you may need to 
pui two or more statements on the same 
line to save memory or to cotitrol [)i-o- 
gram logic at a branch. Use the colon 
to do this. 

If you want to save this program lt> 
disk, choose a filename and then type 
SAVE "filename", 8 <return> in Direct 
mode on the C-6'1 or DSAVF, 'Tilename" 
<return> in the same mode on the 
C-I2S, Look up rules for filenames. 

.'\fter you've saved the program, type 
NEW <return>. This command erases 
the program from the cojnputer's mem- 
ory and resets the variables to zero. 
Always NEW the memory before you 
begin another progratn to avoid getting 
lines from the old program cntangletl 
in the new. 

Loops and Branches 

Most programs are composed of tiny 
programs of one or more lines called 
subroutines, each of which accom- 
plishes one specific operation. These 
operations, in turn, build and are built 
from a few fundamental programming 
mechanisms. 

Tw() of the most im]K)rtant of these 
mechanisms are loo]js and branciies, 
and they're closely related. Unless the 
computer is told otherwise, it executes 
program lines in numerical sequence, 
so if you want execution to go elsewhere 



than the next line, you must set up a 
branch operation. Statements used for 
branching include GoTo and If-Then- 
Else. {Else is not available in Basic 2,0 
on the C-(i'!.) 

A loop is a special kind of branch 
that turns on itself, repeating one or 
more times. Just how often it repeats 
depends on what Basic statements you 
use and how you combine thetn. 1 can't 
show you here all the ways lo set up a 
loop, but staiemenis such as lor-Next, 
GoTo, GoSub and, on the C-i28, Do- 
Loop are used. 

The simplest loop is an endless loop. 
Try this one: 

10 PRINT "ANNETTE "; 
.50 GOTO 10 

Pretty heady, isn't it, seeing your 
name march across the screen? Each 
time the computer comes to line ,'iO, it's 
told to go to line 10 and start executing, 
which, of course, takes it to line 50 
again. The only way to stop the [jrogram 
is to ])ress the run-stop key. 

The semicolon is what makes the 
computer continue printing on the 
same line. Ordinarily, the computer ex- 
ecutes a return for every Print state- 
ment, but the semicolon sujjpresscs the 
return. A comma in the same place 
moves the cursor to a predetermined 
column positi(m. Try it. 

An endless loop is boring after a 
while, so let's put a limit on this pro- 
gram. Type the following lines; 

20 X = X-F I 

30 PRINT X, 

40 IF X= 100 THEN END 

Now, when ymi run the program, the 
computer will print your name 100 
times. Line 20 tlefincs X as a counter, 
whose value increases by one each time 
through the loop. In the If statement in 
line 40, the computer tests to see if X 
is 100 yet. If not, the loop ctintinues. 
When the value of X finally becomes 
100, the computer does whatever fol- 
lows THE-S'. You could, for example, 
say THEN GOTO 100 and start a new 
subroutine at line 100. 

A For-Ncxt statement is another way 
to set up a loop in Basic. NEW the 
memory, then type: 

10 NS = "ANNErrE" 
20 KORC= MOTO 155 
:iO PRIN T Of IR$(C); 
40 PRINT N$;C 
50 NEXT 
60 PRINT C 

The Ioo[) starts with the For in line 
20. The initial value of C — the counter 
for the loop — is the first of the two 
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niimliLTS following the equals sign. Uii- 
kss yoi! specify a (liffctL'tit S'lKP (in- 
crcniL'iit), ihc ciHiipuit-T will add one lo 
C's value cath time exeeiition reaches 
the Next statement in line 50— the end 
of the loop. As long as C remains less 
than the second niiinher, execution will 
return fro in the Next statement to the 
For staletnent. In other words, the lines 
from FOR to XKXT are executed re- 
peatedly mitil C = 156. Then the ctnii- 

Listing 1. DEcB gams progrBtn. 



puter goes on to the line after N'F.XT. 
Each loop in this example changes (he 
color of die characters displayed on the 
screen. 

Putting It All Together 

Writing programs is a matter of put- 
ting operations sucli as loops and 
branches together in more or less cirni- 
plcx patterns, and the most iniporiani 
consitleration in programming is the 



5 REM DICE THROWING PROGRAM 
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REM CLEAR VARIABLES 
CLR 

25 REM THROW TWO SIX-SIDED DICE 
30 D1 = INT(RND(0)*6+1) 
40 D2 = INT(RND{0)*ri+I) 
50 PRINT "DIE I ='■ DI;-DIE 2 = "D2 
55 REM BRANCH IF NOT 7 OR 11 
60 IF Dl + Da = 7 OR D 1 + D2 = 1 1 THEN GOTO 90 
PRINT "TOO BAD!" 
t;OTO 100 

PRINT "YOU WONt" 
INPUT "WANT TO PLAY .■\GAIN (Y/N)";I$ 
REM TEST ANSWER ON REPLAY 
IF LEFr$(IS.l)<>"Y" THEN END 
liEM LOOP BACK TO DICE THROW 
GOTO 20 



Fleura 1. 


Dies go ma flowchnrt. 










Throw 

Dice 












^ 


' 










,,^^?^\ Yes . 
*^7or11^P^ ■> 


Print 
"Congratutations" 








\ 


No 














Print 
"Condolences" 








Yes 




' 
















Jno 








End 













sequence of these operations. One of 
the hesl ways lo plan a program is to 
make a list of what you want your ]3ro- 
gram [o do — that is, define your output. 
Then draw a flowchart, a diagram of 
program logic that shows each opera- 
tion, including branches, in order of 
execution. 

For instance, before writing the sim- 
ple dice throwing program (sec Listing 
1), I itlentified three goals: 
— To !)c alile to "throw the dice" any 
number of limes without typing RUN 
every time, 

— To have (he tompuler throw two six- 
sided dice. 

— To have the computer tell me if I 
"won" (threw a 7 or 11) or "lost." 

Each of these feaimes calls for a spe- 
cific o]3eialioii.The first requires a loop 
with a brasich point, where the alter- 
natives are to play again or to quit. The 
second calls for using the random num- 
ber generator to simulate dice. The 
third needs a test of the dice throw and 
a branch leading to the appropriate 
Prim siaiement. 

Study ihe flowchart (Figure 1) and 
then the program itself. The flowchart 
makes ihe sequence of the program 
logic apparent, even though yon may 
not know the commands necessary to 
actually write the program. By the way, 
(he REM statements in the listing arc 
notes for the progrannner; ihe computer 
ignores them. 

The best way to learn Basic program- 
ming is to study working programs. 
Find short ones in magazines or books 
or in the public domain; then analyze 
every line. Look up each command and 
try to see how it contributes to the pro- 
gram; draw a flinvchart ol the ])iT)gram's 
logic and ]ilay with any siaiemenls you 
don't understand; ami feel free to edit, 
delete and rearrange lines. You can akso 
insert Stop statements here and there, 
or add Print statements lo make die 
computer display what happens when 
you use a function like RND{X). In <nher 
words, play with the program until its 
changed behavior tells you how each 
statement works and fits into the overall 
logic. If the program slops working, lig. 
ure out why. If the tompuler freezes, 
just turn it off and reload. 

Keep this process ii[), and one day 
you'll either be a good jirogrannner or 
you'll know iliat programming isn't 
your cup of lea. Whichever way it goes, 
you'll understand your computer a lot 
better, and you'll trust it a lot more. ■ 

Aniiftlr ffhishaw, founder of the Tulsa 
Area C.omiimdore User's Croup, has written 
extensively for computer magazines. 



Sf KCIAL ISSUE mm ■ RUN 23 



PROGRAMMING 



— The Secret 



Of Better Programming 

Whetiier you're programming in Basic or machine language, 
tfiese guidelines mil help smooth t}ie way. 



Wiitinj^ a (■()m[>nifr pro- 
giam, liku wiitiny a novel 
or magazine arliclf, is an 
;irl, and, liktr a writer, each 
prof^raitiiner ilcvclops his or her own 
style. HowevLT, ;»11 programmers can 
heiH'flt from Ibilowing basic guidelines, 
ant!, in this ailiiie, I'll present those I've 
found of help. If von follovi' tlu'iii, loo, 
yixi'll he well on yonr way toward the ef- 
ficient production of inieresiing and 
smoothly running programs. 

Planning 

Programming is often ten percent 
])assionate coding and 90 percent very 
tediou.s debugging. Good planning, 
however, if followed through to its 
logical conclusion, can even out these 
percentages. 

Planning involves creating some type 
of map to follow. This maj) may be 
anything from simple notes on the logic 
lor a particular section of yotn' ]nngram 
to a formal llinvchart for the entire 
thing. 1 doni think most projects re- 
ijuire textbook-style tlowcharting. but 
some sort of thoughtful overall map. 
ping is surely necessary to avoid chaos 
if your program is to be at all complex. 

'Ihe following are the points that I 
usually sketch out before turning on my 
coni]nner: 

1. What is the finished [Jiogram sup- 
po.si'd to do? If it's a game, wheti does 
play end? 

2. Wliat are the main sections of the 
program? Sctire-keeping, sound rou- 
tines, menus, joystick routines, tiiathe- 
matical calculations, text handling? 
Whatever they are, I write these down 
in the order they'll appear in the Hsting. 

3. i'br games, what arc the rules? I 
write- down point values and assign vari- 
able names to them. If using a redefined 
cliaraetcr set, I a.tsign the screen codes 
to be used. 

4. I write down the memory ad- 
dresses of all storage areas, whetlicr they 
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be for sprites, graphics screens or ma- 
chine language variables. 

5. Finally, I make sure I can write the 
program withtnit being slowed by a lot 
of research. Do 1 already have loutines 
written earlier that I can import? If not, 
what references am I going to need? 

Ihe foregoing describes just a basic 
list of items that can be lielpfnl in the 
heat of battle. It could be scveial pages 
longer (I've filled several s]5iral note- 
books with planning informatioti for 
some projects). However Icmg, keep 
your programming notes in a separate 
notebook aitd use scratch ])a|ier for 
()uick logic Hows and calculations. Oth' 
erwi.ie, you'll find your neat piogram 
information filled with incomprehen- 
sible doodlings. 

Writing the Code 

If you've done adequate planning, 
you'll have a good idea how to proceed 
widi coding, f iowever, here again guide- 
lines can be hel[)ful. Below I've listed 
the steps that 1 use to make code writing 
tnore effective. 

1. No tnatter what the language, de- 
fine all the major variables at the be- 
ginning of the listing. Also, ensure that 
Ditnension (DIM) siatemeiUs are out- 



side lite main ])rograni loop, to avoid 
redimension errors. 

2. Number lines by increments of at 
least ten. By doing so, you can make 
additions and corrections to your pro- 
gram with(Hit using a renumbering util- 
ity. Only when the program is finished 
and completelv debugged will you need 
to use a rcnumberitig utility or com- 
mand to nntnbcr the lines evenly. 

3. You shovild nnier start a target sub- 
routine or line with a Remark state- 
ment. Put the R!''M above the target line 
so it can be deleted to save memory and 
increase speed. 

4. Keep two copies of your finished 
program, ime liberally annotated and 
one [jaied dcnvn, with all the Ri''.M state- 
ments removed. 

5. In addition to leaving out REM 
statements, there are other ways to in 
crease a program's speed. Stay away 
from indexed variable loops, such as 
the following: 

I!) X=iO 

20 X = X+ 1: !]■• XOIDDO THKN 20 

!)() RKM Cotvtimie exftuiiim licTc. 

Instead, use For-Next loops as much 
as possible. Al,?o, placing multiple state- 
ments on each line will save both time 
and metnory. 

6. Use integer variables for constants 
(A% = 100 instead of A = I (If)). 

7. For large pi ograms. it may be bet- 
ter to place subroutines and Ilata state- 
ments at the beginning of the listing. 
When a GoSub statement calls a sub- 
routine beginning later in the program, 
the computer must search forward until 
it finds the target line number, and in 
a large program, the search time can 
really add up. If the- target line number 
is less than the Clo-Sub's line number, 
the program will start seat thing at the 
tx'ginning of the listing, and, if the tar- 
get is near the beginning, the search 
will be short. 

8. C-64 owners can minimize irrital- ( 
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* * For my money, RERUN DISKS are the greatest. 





I've tried others, but found that the quality and number of pro- 
grams offered on the ReRUN disk can't be beat. My two teen- 
aged sons agree. They enjoy the games and educational 
programs, The time and money that I've saved with ReRUN 
has helped me— and my entire family— become more produc- 
tive computer users. 

—Jim Fblmieri. ReRUN Subscriber 
Farmingville, NY 

Discover the value, variety and eose-of-use that ReRUN 
disks offer, Join the thousands of RUN 
fvlagazine readers who subscribe to 
ReRUN. Each disk is packed with 
programs from the two most recent 
issues of RUN, plus never-before- 
published BONUS programs. 
ReRUN is great software 
at an affordable price, 
including: 

• Word Processing 

• Spreadsheets 

• Data Bases 

• Educational Applications 

• Home Entertainment 



ORDER A SUBSCRIPTION TODAY! CALL TOLL-FREE 1-800-343-0728 



.(single issues available at $16.47 each). 




SAVE 30% ON A YEAR'S SUBSCRIPTION 



YES! 



I want to save 
time and money! Send me 
the following: 

D One year (6 issue) subscription 

to ReRUN (or only S69.97 

Z Nov./Dec. '88 single issue for 
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PROGRAMMING 



ing delays by adding a FRE(O) command 
ai the beginning of siring-handlinj? rou- 
tines to force garbage colleciion bci'orc 
variable space becomes cluttered. Gar- 
bage collection occurs when there's no 
room for a new variable and everything 
must be shifted from the top of memor)' 
down to make room, 

9. Save your program fret]ucntly 
chtring development, and make biickup 
copies an a separate disk that's set aside 
for safekeeping. If you own a printer, 
also ])rint out a listing of the finished 
program for your archives; paper lasts 
longer than disks! 

10. Klacli time you work on a pro- 
gram, place the current date, time and 
version number in a RKM statement at 
the beginning of the listing. Kreejueiilly, 
1 fiiul myself with several versitms of a 
program and would have a difficult 
time knowing which was the most re- 
cent if I hadn't taken this precaution. 

11. After you've finished your pro- 
gram, keep some son of log (paper «)r 
disk) of its major routines, so you can 
find them to use in oilier programs. 



.\fler a while, you'll be surprised at how- 
man v subroutines ytni'U have on tap. 

Machine Language 
Programming 

Here are some pointers specifically 
for writing machine language code: 

1. "Top-down" programming may he 
acceptable for Basic, but it's hardly ef- 
ficient for machine language. Use mod- 
ular tcchnitiues, constructing your pro- 
gram from a series of subroutines, and 
make sure they're global enough to be 
used in other programs. Moreover, by 
passing most of your parameters to sub- 
routines, you'll find that debugging is 
easier, since you'll know what registers 
or memory locations are being manip- 
ulated by the calling and target routines. 

2. Use meaningful label names. To 
me, JOYSTICK' LOOP says much more 
thanjLOOR 

3. Likewise, annotate your listing lib- 
erally. It can be a headache trying to 
determine what a particular routine was 
designed for after you haven't seen il 
for several months. Unlike Basic, ma- 



chine language comments don't appear 
in the assembled object code and don't 
affect execution speed, so programmers 
have no excuse for not using them. 

4, Start a module library of handy 
subroutines that can be .LIBed or 
.FlLEed into new programs. Also, get 
used to using standard variable and Ker- 
nal names in the declaralion table and 
saving them as a Library file to disk. In 
addition, use macros if your assembler 
system can handle them. 

Needless to say, an entire book couid 
be written on how to become a more 
effective programmer, and what works 
for you may not work for someone else. 
However, I've found that following 
these simple guidelines has lei me con- 
centrate more tm actual coding and less 
on the mechanics of programming. For 
me, that has meant the difference be- 
ivvcen programs that work well and pro- 
grams that merely work. ■ 

John Ryan is an air traffic control instruc- 
tor anft an advanced programmn in both 
liable and machine langiutge. 
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C-64 Sprite Basic 

What was once tedium on the 064 becomes a jay with the powerful 
new sprite commands in this language extension. 



By CHARLES ORCUTT 



As one of the oulstaiiding as- 
pects of graphics oil the C-64 
and CI 28, sprites arc used in 
programs in a variety of ways, 
from arcade games to the pointer found 
in "point and dick" interfitces like 
GEOS. Since both computers have es- 
sentially the same VICII graphics chip, 
they have equal abilities when it comes 
to sprites. 

But there are differences between 
thetii when it comes to programming 
sprites. It is actually a little easier to 
program sprites from machine lan- 
guage on the C-64 than on the C-128, 
since you don't ha\'c to worry aboiH 
things like shadow registers or multiple 
banks of RAM, 

From Basic, however, sprite program- 
ming is far easier on die 128 than on 
the 64, since Basic 7.0 on the C-128 has 
many dedicated sprite commands, and 
the C-64's Basic 2.0 has none. C-64 Basic 
programmers must therefore resort to 
Peeks and I'oke.s, which are slow, cryptic 
and in most cases too complex for the 
average programmer. Of course, there 
are commercial Basic extensions that 
add sprite commands (Simons' Basic, 
Super Expander, Graphics Basic), but 
these cost money and limit the use of 
the programs to those who possess the 
extension that was employed. 

Solution Extended 

My solution was to write C-64 Sprite 
Basic, a small language extension that 
offers Basic programmers the most im- 
portant abilities of the C-128's Basic 7.0 
commands. Its great advantage is that 
a program that uses the language need 
only be copied to a disk, and anyone 
can run it. 

There are four commands in the set. 
With them, you can define, move and 
even animate sprites with simple Basic 




commands. One of them allows your 
]jrogram to automatically branch to a 
subroutine whenever a collision occurs 
between sprites or between sprites and 
screen data. 

Here are the new commands Sprite 
Basic makes available. The first is 

SE'RlTES<((l-8),On;QfT(0n),Color(i-16), 
Priority(0;i),XP(0/l ),VP(0/I ),Mode(0/l ) 

The Sprite command is used to define 
a sprite. The sprite number (S#) is from 
1-8, not the 0-7 you may have used 
when poking in sprite information 
from Basic 2.0. The second parameter 
turns the sprite on (1) or off (0), The 
sprite's color is next, with values from 
1 (black) to 16 (light gray). 

Then comes the priority flag, which 
detcrinines whether the sprite will ap- 
pear in front of or behind any non- 
sprite data on the screen. You cati also 
expand the sprite horizontally or ver- 



tically by placing a 1 in the appropriate 
XP or YP location. And, finally, you 
must indicate if the .sprite is a normal, 
high-resolution, single-color sprite 
{Mode = 0), or a multicolor (Mode = 1). 

All the various parameters in the 
Sprite command can differ for each of 
the eight sprites, so some can be high- 
resolution while others can he multi- 
color. Some can appear in front of 
screen data, others behind. I'he colors 
can he different, as can the X or Y 
expansion flags. It all depends on what 
you need in your program. As you can 
see, the Sprite command quickly and 
easily replaces the many different Pokes 
that would have been neccssar)' to do 
the same things. 

The second command is 

SPRCOLORMCl 0-lf>),MC2 (1-16) 

If any of the sprites in your program 
are multicolor, you need to use SPR-» 



RUN it right: C-64 
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COLOR to indicate which colors to use. 
Keep in tiiind thnt these colors are used 
by all your multicolor sprites. The only 
color unit]ue to a single sprite Is the 
one specified in the Sprite command 
itself. 
The third comrnand is 

MOVSPR S#( 1 -8),X1 .Y1[,X2,Y2^PEED( 1-H)] 

MOVSPR is the real workhorse of the 
command set. If you've ever tried mov- 
ing sprites by poking values inio mem- 
ory, you know how difficult il can be 
when you atietiipi to move past location 
265. It requires a lot of complex peek- 
ing, poking, ANDing atid ORing of 
memory locaiiotis. Well, you can forget 
all that, because MOVSPR handles it for 
you. There are two modes of use. If all 
you want is to place the sprite at some 
specific locniion, just use 

MOVSPR s#,x,y 

where S# is the number of the sprite, 
and X and Y are the coordinates of its 
desired location on the screen. 

But MOVSPR has another, more pow- 
erful animation feature. You can use 
the optional X2,Y2,SPEED parameters 
lo move the sprite precisely from point 
X1,Y1 lo point X2,Y2 at any of the eight 
allowable speeds. The thing that makes 
this aspect of MOVSPR so powerful is 
that while your sprite is moving, Basic 
continun to prnce.is other parts of your pro- 
gram at the same time! This is possible 
becatise this feature, which I call a sprite 
line, is executed on the interrupt, 
sixty times a second. One result is that 
you can aiuomalically animate ail eight 
sprites siinullaneously! 

Finally, there is the remarkable Col- 
lision cotnmand: 

COLLISION rvPK {lffi),LINE U 

When you are programming sprites, 
it is often useful to detect when one 
sprite has collided with another, or with 
sotne non-sprite data on the screen. 
With Basic 2.0, you would have to con- 
stantly peek memory locations, make a 
decision on what to do, and then branch 
your program to the iine appropriate 
for handling it — altogether a complex, 
tedious and slow process. With the Col- 
lision command, however, you can tell 



the computer to monitor for collisions, 
and if it detects one, to go to a specified 
subroutine. It will execute the subrou- 
tine, then return to where it left odand 
continue on. 

To use the Collision command, you 
should have it on a line by itself some- 
where in your program, preferably in 
the main loop. {If you're using both 
types of collisions, they should both be 
on the same line.) In your subroutine 
that handles the collision, the very fir it 
statement must be a Collision command 
{i.e., COLLISION,! or COLLISION,'^), 
but must rwt be followed by any line 
number. This will turn off collision de- 
tection while you are in the subroutine, 
and it is an absolute requirement! 

When you're finished with the sub- 
routine, a return will carry you back to 
the main loop. The reason the initial 
Collision statement(s) should be in the 
main loop is so that they can be turned 
back on after the return from a collision 
subroutine. Note: Be very sure you never 
turn on sprite collision detection from 
within a collision subroutine! 

You should understand that the col- 
lisions are handled via a raster inter- 
rupt, 60 times a second. Therefore, 
when you turn off collision detection 
in your subroutine, automatic branch- 
ing ceases, although the computer con- 
tinues to detect collisions. Since the 
Sprite Basic extension automatically 
clears the collision registers when you 
turn off collision branching, the regis- 
ters are cleared to zero for a sixtiedi of 
a second. If you then intend to peek 
the collision registers to determine 
which sprites have collided, you should 
first do some small amount of Basic in 
order to give the computer time tocafch 
the next collision. Updating variables 
or a \'ery small For-Next loop (1 to 10) 
is sufficient. 

Tips for Use 

To use Sprite Basic, first type in List- 
ing 1 (using flLWs Checksum program). 
This is a Basic listing in the fortn of 
hexadecimal Data statements. Before 
running it, save it with some si tuple 
name, like Listing 1 , Your disk drive will 
run for a time while Listing 1 generates 
the actual Sprite Basic program. This 



newly created binary file on your disk 
is the Sprite Basic extension. 

To create pr<)grams with it, you first 
need to load and activate the Sprite 
Basic extension. This can be done with 
the following small boot program. 

10 IF A = THKNA= lrI,OAD"SPRITF. 

BASIC",H,l 
20 SYS 49li)2 
30 NEW 

-•^fter running this, you can write the 
new commands, and the C-64 will un- 
derstand what they are. In fact, it's a 
good idea to have lines 10 and 20 as the 
first two lines in all your Sprite Basic 
programs. (Some of the new commands 
won't work as intended unless the SYS 
49152 is executed urithiii tlie program.) 

To help you gel started. I've included 
a demo (Listing 2). It uses all the Sprite 
commands lo generate a simple but en- 
tertaining arcade game. To use it, first 
type in Listing 1 and generate Sprite 
Basic as instructed above. Then load 
and activate the Sprite Basic extensiotj 
and enter Listing 2. By studying this 
game, you'll find useful examples of all 
the Sprite Basic commands. 

While Sprite Basic does just about 
everything you need, there are some 
things you still have to do the "tjld" way. 
For example, you still have to create 
your sprites with a sprite editor, and 
the sprite data will have to be poked 
into memory. You also need to poke the 
sprite pointer into the appropriate 
sprite register. (Sprite pointers indicate 
where in memory the sprite data has 
been poked. These pointers to the data 
are poked into locations 2040-2047 for 
sprites 0-7, respectively.) 

Finally, you need lo peek the collision 
registers to see what sprite has collided, 
if you need ihat information. There are 
two sprite collision registers. For sprite- 
sprite collisions, peek location 53278; 
for sprite-data collisions, peck location 
53279. For further information, you 
should refei' it) the C-64 Programmers 
Reference Guide. ED 



Charles Orcutt is an electronics technician 
and a self-taught Basic and machine language 
programmer. 
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10 REM C64 HEX LOADER :REM*24 
20 OPEN 8, 8, a, "SPRITE BASIC, P,W 

" :REM*2 30 

30 READ A$:IF AJ="-1" THEN CLOS 

E8:END :REM*186 



40 IF LEN{AS)<62 THEN 12(!:REM*4 
50 3S=MIDS(AS,1 ,20)-kMID$(AS,22, 
20)+HID$(AS,43,20) :REM*20e 
60 FOR 1=1 TO 30 :REM*214 
70 C$=MIDS(B$, (I*2)-1 ,2) :H$=LEF 



TSICS,1 ) :L$=RIGHT$(C$,1 ) 

:REM*137 
80 H=VAL{HS):IF HS>"9" THEN H=A 

SC(H$)-55 ;REM*56 

90 L3VAL{L$):IF L$>"9" THEN L=A 
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SC(LJ)-55 
100 BY=H*16+L:PRINT#8,CHR$(By) ; 

: REM* 138 

110 NEXT:GOTO 30 :REM*191 

120 IF LEN{AS)<21 THEN B$=A$:GO 

TO 150 :REM*7:: 

130 IF LEN(AS)<42 TliEH B$ = LEFT$ 

( AS , 20 ) +RIGHT$ ( AS , ( LEN ( A$ ) - 

21 ) ) :GOTO 150 :REM*230 

140 BS=LEFT$(AS,20)+MID${A$,22, 

20 ) +R IGHTS ( A J , LEN ( AS ) - 4 2 I 

:REM*1 13 
150 FOR 1=1 TO LENtBS)/2:REM*10 
160 CS=MID${B$, (I*2)-1 ,2) :H$=LE 
FTJ(CS,1 ) :L$=RIGHT$(C5,1 ) 

:REM*e3 

170 H=VAL(HS):IF HS>"9" THEN H= 

ASC(U$>-S5 :REM*222 

100 L=VAL(LJ):IF L$>"9" THEN L= 

ASC(L$)-55 :REM*243 

190 BY = H*16tL;PRINT(?e,CHR$(BY> ; 

:REM*49 
200 NEXT:G0TO 30 :REM*16 
300 REM C64 SPRITE EXTENSION 

:REM*72 
310 DATA 00C0A900A00099F5CGCS D 
0FA8DF3C6A9348D0403 A9C08D0 
503A9FA8D0603 :REM*67 
320 DATA A9C08D0703A92F8D0803 A 
9C1 8D0903A900eDE0C6 2080C56 
0209FC5A67AA0 :REM*213 
330 DATA 04840FBD00021007C9FF F 
03EE8D0F4C920F03785 0eC9Z2F 
0S5240F702DC9 :REM*39 
340 DATA 3FD004A999D025C93090 
4C93C90iD8471A00084 0B8B867 
ACAC8E8QD0002 :REM*1 1 
3S0 DATA 38F99EA0F0F5C980D02F 
50BA471E8Ca99FB01C9 00F0383 
8E93AF004C949 :REM*215 
360 DATA D002850F38E955D0A08S 
8BD0002F0E0C508F0DC C899FB0 
1E8D0F0A67AB6 :REM*201 
370 DATA 0BC8B99DA0J0FAB99EA0 D 
0B5F00FBD000210BD99 FD01C67 
BA9FF057A60A0 ;REM*89 
380 DATA 00B9BEC6D002C8E8BD00 
23aF9BEC6F0F5C980D0 04050BD 
099A67AE60BC8 :REM*200 
390 DATA B9BDC610FAa9BEC6D0E0 F 
0C6100F240F300BC9FF F007C9C 
CB006 4C24A74C :REM*255 
400 DATA F3A638E9CBAA8449A0FF C 
AF008C8B9BEC610FA30 FSC8B9B 
EC630052047AB :REM*69 
410 DATA D0P54CEFA6207 900D00E A 
DEAC6F009AE1ED0AE1F 00201 3C 
5207300204BC1 :REM*1 4 
420 DATA 4CAEA7C9CC9004C9D090 
62079004CEDA738E9CC 0AAABDB 
7ce48BDB6C64e :REM*21 7 
430 DATA 4C7300209EB7E001F00C E 
002F008209FC5A20E4C 37A48A4 
8Z07900C92CD0 :REM*198 
440 DATA 3B684e0DE0C68DE0C668 C 
901D010207300A57A8D DC:C6A57 
B8DDDCG4CAFC1 :REM*3e 
450 DATA 207300A57A8DDEC6A57B 8 
DDFC6A5398DE1C6A53A 8DE2C62 



:REM*73 08AAD20F7B760 : REM* 108 

460 DATA 6838E93049FF2DE0C68D E 690 
0C660209EB78A3aC901 9007C90 
9B0034CE2C1A2 :REM*126 

470 DATA 0E4C37A4aDE8C6A901CA F 700 
0090A4CE7C1A20B4C37 A48DE7C 
620790 0C92CD0 :REM*37 
480 DATA F1 207300208AAD20F7B7 A 710 
D12D0C909D0F9ADE8C6 38E901 
AA88CE9C6A51 4 :REM*114 

490 DATA 8DEDC69900D0ADE7C649 F 720 
F2D10D08D10D0A5158D EEC6F00 
9ADE7C60D10D0 :REM*143 

500 DATA 8D10D0207900C92CD0n 2 730 
07300209EB7ACE9C6C8 8A8DEFC 
69900D0207900 :REM*218 

510 DATA C92CD07320CDC2AD12D0 C 740 
909D0F9Z0730020EB87 A5148DF 
0C6AS1 5BDF1C6 :REM+30 

520 DATA 8EF2C6ACEac68eB9ADC6 A 750 
A989DF5C6ADE7CG9DF6 C620DDC 
5ADE7C60DF3C6 :REM*63 

530 DATA 8DF3C6207900C92CD01E 2 760 
07300209EB78A38C901 9020C90 
9B01C48ACEec6 ;REM*117 

5 40 DATA e8B9ADC6AA689DF7C660 A 770 
CEec688B9ADC6AAA901 9DF7C66 
0A20E4C37A4AD :REM*106 

550 DATA E7CG49FF2DF3C6eDF3C6 6 780 
0209EB78A38E901 3034 38C910B 
02F8D25D02079 ;REM*143 

560 DATA 00C92CD014207300209E B 790 
78A38E901301938C910 B0148D2 
6D060209EB78A :REM*Z19 

570 DATA 38C9019007C909B0034C 1 800 
BC3A20E4C37A48DE8C6 A901CAF 
0040A4C20C3eD :REM*189 

580 DATA E7CG49FF2D1 5D08D15D(i 2 810 
07900C92CD013207300 209EB7E 
001D009AD15D0 :REM''249 

590 DATA 0DE7C68D15D0207900C9 2 820 
CD017207300209EB76A 38E901 3 
0B738C910B0BZ :REM*183 

600 DATA ACE8C69926D0207900c:9 2 830 
CD01EADE7C649FF2D1B D08D1BD 
0207300209EB7 :REM*162 

610 DATA E001D009AD1BD00DE7C6 8 840 
D1BD0207900C92CD01E ADE7C64 
9FF2D1DD08D1D :REM*220 

620 DATA D0207300209EB7E001D0 850 
9AD1DD00DE7C68D1DD0 207900C 
92CD01EADE7C6 :REM*99 

630 DATA 49FF2D17D08D17D02073 860 
0209EB7E001D009AD17 D00DE7C 
68D17D0207900 !REM*30 

G40 DATA C92CD01EADE7C649FF2D 1 870 
CD0eD1CD0207300209E B7E001D 
009AD1CD00DE7 :REM*143 

650 DATA C6BD1CD060AD19D08D1 9 D 880 
02901D0034C31EAADE0 C6F0222 
901F00DAD1ED0 :REM*75 

660 DATA F008A9018DEAC64C33C4 A 
DE0C62902F00AAD1FD0 F00SA90 
28DEAC6ADF3C6 :REM*108 

670 DATA D0034CA7C6A0078CEBC6 A 
9808DECC6eCEBC6ADEC C6F0EB2 
DF3C6D0094EEC :REM*53 

680 DATA C68810ED4CA7CG4EECC6 C 910 
EEBC6B9ADC6AABDP7C6 8DF4C6B 920 



DF8C685A7BDF9 :REM*S5 
DATA C685A8BDFAC685A620B1 C 
S38BDF9C6DDFCC6D029 BDF8C6D 
DFBC6D021BDFA :REH*229 
DATA C6DDFDC6D019BDF6C64 9 F 
F2DF3C68DF3C6ACEBC6 ADECC6D 
0034CA7C64C45 :REM*255 
DATA C4206AC6902CBD06C718 7 
D00C79D06C7BD07C769 009D07C 
7BDF8C6187D01 :REM*131 
DATA C79DF8CGBDF9C67D02C7 9 
DF9C6206AC6F002B01D BD04C71 
87DFEC69D04C7 :REM*143 
DATA BD0SC77DFFC69D05C7BD F 
AC6187D03C79DFAC6CE F4C6D00 
EACEBC6ADECC6 : REM* 1 6 5 
DATA D0034CA7C64C45C44C6B C 
4C902F0102050C5ADDC C6857AA 
DDDC68S7B4C34 : REM* 3 2 
DATA C52050C5ADDEC6857AAD D 
FC6857BA9008DEAC6AD E1C6853 
9ADE2C6853A20 :REM*253 
DATA 8 3A8206BC5AD1ED0AD1F D 
060AD1ED0AD1FD0A539 8DE3CeA 
53A8DE4C6A57A :REM*36 
DATA 8DE5C6A57B8DE6C660AD E 
3C68539ADE4C6853AAD E5C6857 
AADE6C6857B60 :REM*251 
DATA 78A90A8D12D0AD1 1D029 7 
F8DnD0A98ieDlAD0A9 FF8D1 40 
3A9C3SD1 50358 :REM*1S0 
DATA 60A980BD1AD078A9318D 1 
403A9EA8D1 5035860A5 A8F00CB 
DF6CG0D10D08D :REM*9 
DATA 10D04CCCC5BDF6C649FF 2 
D10D08D10D0BDF5C60A A8A5A79 
900D0A5A6C899 :REM*1 1 5 
DATA 00D060ADEFC69DFAC6AD E 
DC69DF8CGADEEC69DF9 C6ADF2C 
69DFDC6ADF0C6 :REM*134 
DATA 9DFBC6ADF1C69DFCC63e B 
DFBC6FDF8C69D08C7BD FCC6FDF 
9C69D09C72079 :REM*180 
DATA C69D01C7C901D002A900 9 
D02C7208CC6BD0eC79D FEC6BD0 
9C79DFFC638BD :REM*156 
DATA FDC6FDFAC69D08C7A900 E 
9009D09C72079CG9D03 C720ecC 
6BD08C79D00C7 :REM*100 
DATA BDFEC69D04C7BDFFC69D 
5C7BD00C79D0GC7A900 9D07C76 
0BD05C7DD07C7 : REM* 7 7 
DATA D00GBD04C7DD06C760BD 
9C7300BF003A90ie0BD 08C7D0r 
8G0A9FF60BD09 :REM*225 
DATA C7101 549FF9D09C7BD08 C 
749FF9D08C7FE08C7D0 03FE09C 
76068A868AA68 :REM*G3 
DATA 4000152A3FS4697E93A8 6 
8C1CCC1D8C2(i5C3434F 4C4C495 
3494FCE4D4F56 :REH*4a 
DATA 5350D2535052434F4C4F D 
25350524954C50( 
0000000000000 :REM*239 
DATA 00000000000000000000 
0000000000000000000 0000000 
0000000000000 :REM*1 
DATA 00000000 :REM*93 
DATA -1 ;REM*13I 
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10 

20 

30 

40 

50 
60 
70 
80 
90 

100 
110 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
260 
290 
300 
310 
320 
330 



340 
3 50 
360 
370 
380 
390 
400 



410 



420 
430 



IP A»0 THEN A»1;LOAD "SPRITE 

BASIC", 8,1 
SYS49152:REM INITIALIZE EXTE 
NSION 

F0RX=1 61 28T016383:READA:CK=C 
K+A:POKEX,A:KEXT 
IFCK0 91 1 1THENPRINT"ERR0R IN 

□ATA STATEMENTS" : END 
SID=54272:J=56320:V=53248 
GOSUB7 50 

P0KES1D+ 5 , 1 60 : POKESID+6 , 25 2 
POKES ID+ 2 4, 15 

POKESID+12,103:POKESID+13,20 
4 

POKESID+8,40 

POKESID+19,0;POKESID+20,253 



POKESID+15,60 

POKE53280,e):POKE53281 ,0 

PRINT" {SHFT CLR)" 

C1=S:C2=9:TL=1 

POKE2040,252:REM CANtSOH 

POKE2041 ,255:REM PLANE 1 

POKE2042,253:REM MISSILE 

SPRITE 1 ,1 ,6 

SPRITE 2,1 ,13,0,0,0,1 

SPRITE 3,0,7,0,0,0,1 

MOVSPR 1,160,218 

FORX=19TO0 STEP-1 

POKE1024+X,1 60 

POKE1063-X,1G0 

POKE55296+X,2 

POKE55335-X,2 

POKE56256+X,3 

POKES629S-X,3 

POKE1984+X,160 

POKE2023-X,160 

NEXT 

X=PEEK(V+30) :X=PEEK(V+31 ) :R 

EM BE SURE ALL COLLIDES ARE 

CLEARED 
R=INT<RND(1 )*120):P=P+1 
IF P=16T!iEN660 
R23lNT(RND(1 )*120J 
S1=INT(RND(1 )*7)+2 
POKESID+1 ,S1*3 
SPRITE 2,1 

IFTL=1THENTL=2:POKE2041 ,254 
:HOVSPR 2,0,60+R,345,60+R2, 
SI ;GOTO420 

IFTL = 2THENTL=1 :POKE2041 ,255 
SMOVSPR 2,345,60+R,0,e0+R2, 
SI 

POKESID+4,1 29 
C=C+1 :IFC=30THENC=0:GOTO340 



440 IFC=1 5THENPOKESID+4,12e 
450 C1=C1 +1 :IFC1=1 7THENC1=1 
460 C2=C2+1 :IFC2=17THENC2=1 
470 SPRCOLOR CI ,C2 
480 PRINT" {HOME) {CTRL 3) {CTRL 9 

){6 SPACES )PASSES"P" MISSED 

"S" HITS"H 
490 COLLISION 2, 720: COLLISION 1 

,730 
500 IFPEEK(J»ANDBTHEN530 
510 IFFT=1THEN560 



520 FT=1 :G0SUB6 20: MOVSPR 1,X,21 

8,320,216,2 
530 IFPEEK{J)AND4THEN560 
540 IFFT=2THEN560 
550 FT=2:GOStJB6 20: MOVSPR 1,X,21 

8,25,218,2 
560 IFPEEK(J)AND16THEN430 
570 IFF=1THEN430 
580 IFF=0THEN F=l :GOSUB620 :MOVS 
PR 3,X,193,X,55,3:3PRITE 3, 
1 :P0KESID+11 ,129 
590 COTO430:REM CONTINUE MAIN L 

OOP 
600 REM THIS SUBROUTINE MAKES A 
VARIABLE EQUAL TO A SPRITE 
POSITION 
610 REM IF YOU MEAN TO DO SPRIT 
E 3 THEN IT IS X=PEEK(V+4)+ 
PEEK( (V+16)AND4)*64 
620 POKE828,120:POKE829,96:SYS8 

28: REM INTERRUPTS OFF 
630 X=PEEK(V)+(PEEK(V+16)AND1 )* 

256 
640 POKE828,8e:SYS828:REM INTER 

UPTS ON 
650 RETURN 

660 POKE53280,7:POKE532B1 ,9:PRI 
NT" {SHFT CLR)":F0RX=1T03:SP 
RITE X,0:NEXT:GOSUB750 
670 FORX=0TO1 2: PRINT: NEXT 
680 PRINT" {CTRL 8} YOU HIT"H"WIT 
H"S+H"SHOTS IN THE 15":PRIN 
T"PASSES OF THE ENEMY." 
690 PRINT"PRESS FIRE FOR MORE 

F THE SAME." 
700 IFPEEK(J)AND16THEN700 
710 CLR:GOTO50 

720 COLLISION 2: SPRITE 3,0:F=0: 
MOVSPR3,X,193:S=S+l :POKESID 
+11 ,128: RETURN 
730 COLLISION 1 :H=H+1 ;SPRITE 2, 
0; SPRITE 3,0: MOVSPR 3,X,193 
:F=0:POKESID+1 ,0 
740 POKESID+11 ,128: POKESID+1 8,1 

29 ; POKES 10+18,128: RETURN 
750 FORL=0TO24:POKESID+L,0:NEXT 

: RETURN 
760 REM CANNON DATA 
770 DATA000,062,000,000,065,000 

,000,062 
780 DATA000,000,034,000,000,034 

,000,000 
790 DATA034,000,000,034,000,000 

,034,000 
800 DATA001 ,255,192,001 ,255,192 

,001 ,255 
810 DATA1 92,000,162,128,000,1 62 

,128,000 
820 DATA162,128,000,162,128,000 

,162,128 
830 DATA000, 162,128,000,1 93,1 28 

,000,123 
840 DATA128,007,000,112,007,25S 

,240,000 
850 REM MISSILE DATA 
860 OATA000, 008, 000, 000, 008,000 
,000,042 



870 DATA000,000,042,000,000,042 
,000,000 

90,042,000,000 



880 DATA042,000 

,042,000 
890 DATA000,042 

,000,042 
900 DATA000,000 

,160,002 
910 DATA140,1 60 

,140,1 60 
920 DATA000,055 

,000,000 
9 30 DATA00 0,000 

,000,000 
940 REM PLANE 1 
950 DATA000,000 

,000,000 
960 DATA000,000 

,000,000 
970 DATA000,000 

,010,128 
980 DATA006,040 

,010,138 
990 DATA1 28,000 

,000,000 
1000 DATA000,000 

0,000,000 
1010 DATA000,000 

0,000,000 
1020 DATA000,000 

0,000,116 
1030 DATA000,000 

0,000,000 
1040 REM PLANE 2 
1050 DATA000,000 

0,000,000 
1060 DATA000,000 

2,160,032 
1070 DATA008,040 

3,002,162 
1080 DATA1 60,000 

0,000,000 
1090 DATA000,000 



000,000,042,000 
128,128,002,132 
002,132,160,002 
000,000,012,000 



DATA 
000,000,000,000 



000,002,000,008 
032,222,170,170 
002,000,000,000 



00 DATA000,000 

0,000,000 
10 DATA000,000 

0,000,000 
20 DATA000,000 

0,000,000 
30 DATA000,000 

0,000,000 
40 DATA000,000 

2,160,032 
50 DATA006,040 

3,002,162 
60 DATA160,000 

0,000,000 
70 DATA000,000 

0,000,i)00 
80 DATA000,000 

0,000,000 
90 DATA000,000 

0,000,000 



,000, 
,000, 
,000, 


000, 
000, 
000, 


000, 
000, 
000, 


,000, 

DATA 
,000, 


000, 
000, 


000, 

000, 
000, 
170, 


,000, 
,032, 


128 
170 


,128 
,000 
,000 
,000 
,000 


000 
000 
000 

000 
000 


000, 
000, 
000, 
000, 
000, 


,000 
,000 
,032 


000 
128 
170 


000, 

000, 

,170, 


,128 
,000 


000 
,000 


,000, 
,000, 


1,000 
i,000 


,000 
,000 


,000, 
,000, 



00 

18 



18 
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C-128 Sprite Action 

Master the vse of sprites mth tfiese high-level 
Basic 7.0 commands. 





Bi 



By ROB KENNEDY 



I asic 7,0 is the most advanced 
Basic language in any Com- 
I modore 8'bit computer for 
many reasons, one of which is 
its advanced sprite commands. On the 
C-64, sprites take hours of designing 
with pencil and graph paper, consulting 
reference books and typing in Poke 
commands, but with the C-128. you 
can create detailed multicolored sprites 
within minutes, and animation in just 
a little longer. 

The Sprite EonxDR 

When I state that sprites can be created 
in minutes on the C128, I'm not joking. 
Basic 7.0 has a command, SprDcf, that 
activates a program for that specific 
purpose. Turn on your computer in 128 
mode and 40 columns; then type SPRDEF 
and press return. Immediately, a large 
box will appear on the screen, along 
with a prompt asking whicti sprite you 
want to edit. Next, Type 1, and you'll 
sec a 24-columnx 21-line box contain- 
ing a grid pattern, with, lo its right, the 
sprite version of the same pattern. To 
clear the grid in both locations, press 
shift/clear-home. 

Now find the litde plus sign in the 
top-left corner of the box and try mov- 
ing it around with the cursor keys. 
Other keys that control cursor position 
are the return key, which brings it to 
the beginning of the next line, and the 
home key, which brings it to the top- 
left corner of the box. Number keys 1- 
4 are used for drawing in the box. The 
1 key erases, 2 draws in the standard 
color mode, and 3 and 4 draw in ■Mul- 
ticolor mode. 

Right now you're in the Standard 
mode, so you can draw with only one 
color. To change this color to any of the 
1 6 colors available on the C- 1 28, use the 
control and Commodore keys in con- 
juction with number keys 1-8, 




Try drawing a shape in the box— just 
a simple one for now. like a rectangle. 
Notice, as you do so, that the sprite on 
the right is updated continually. 

When drawing vertical lines, you'll 
probably find it cumbersome to hit a 
color key, then have to move down and 
left to get in position for pressing the 
next color key. The sprite editor pro- 
vides a cotnmand, A, tfiat alleviates this 
problem by keeping the cursor from 
advancing after you press a color key, 
"With A activated, you only have (o press 
the cursor-down key to move to the next 
position. 

After you've finished drawing the rec- 
tangle, press the X key and notice that 

RUN it right: C-128, in 40-CoIumn mode 



the width of the sprite on the right 
doubles. Then press the Y key, and the 
height will double. To save your sprite 
in memory, press the shift and return 
keys simultaneously. 

When you're asked which sprite you 
want to edit next, enter 2 and you'll go 
back to the built-in grid pattern. Then 
press shift/clear-homc to erase the pat- 
tern, C to copy another sprite into the 
box and 1 to designate sprite 1. 

The copy command, by the way, is 
handy for setting up animation. After 
you draw the first shape and save it, 
copy it back into the box, make minor 
changes and save it again, continuing 
for all eight available sprites. ►- 
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Now press ninstop and request sprite 
2 lit ihe prompl, noticinf; ttiiit your cop- 
ied slwpe doesn't gel s;ive(i. Any time 
you don't want to s;ive;i sprite, Just press 
run-5iop to return tt) the prompt. 

To access Multicolor mode, press the 
M key. In this mode, you can draw with 
three colors, tisiiig the 2, 3 and 4 keys, 
atid the cursor becomes a double plus 
sign. Although you get only linlf the 
resolution as in the standard mode, the 
extra colors will probably comjiensale. 
(If not, you can design several single- 
C()lor sprites that overlap to create the 
illusion of a multicolor sprite with nor- 
mal resolution. However, this approach 
is a waste of the sprites available to you.) 

The M command and the A, X and 
Y commands I mentione<i earlier are 
all toggles; in other words, they're 
luriied on and off by alternately press- 
ing the same key. In Table I, you'll find 
a quick-reference list of all the com- 
mands available in the sf)rite editor. 

Now draw a nuiltieok)r sprite and 
save it. Then exit the sprite editor by 
pressing return, instead of a sprite num- 
ber, at the prompt. 

Turning On a Sprite 

Having created and saved a couple 
of sprites, you can display them on the 
screen with the Sprite command, which 
has the following format: 

SI'RITE <number,oii/od,<:iik)r,j)ric>rity,X'CX- 
p:tiKl,Y-expand,mtihicolor> 

The sprite number ranges from 1 to 
8 and the color from 1 to 1 6. The other 
pararncters are ttn-ned off and on with 
values of and 1, respectively. You're 
probably familiar with all these param- 
eters except priority, which specifics a 
sprite's location in relation to the 



screen data. A value of makes die 
sprite appear to be in front of the ob- 
jects on llie screen and a vahie of 1 
makes it appear to t>e behind them. 

Type the following line to turn on 
your first sprite, the rectangle: 

SPRITEl, 1,2,0,0,0 

After it comes on the screen, try these 
variations: 

SPRlTEl,l,;i,().l,l u> null (jii sprite 1, with 
red cokir and X and Y expansion. 

SPRI'f El .(),„0,() t<i turn off sprite 1 and can- 
cel X and Y expansion. 

SPRITE2, 1,7,(1, 1,1 J to turn on multicolor sprtle 
2, \^nth blue t'olor and X and Y expansion. 

Notice the three commas in a row in 
the second variation. If you want to 
skip one or mtire parameters before 
specifying another one, you miLst still 
include all the commas for the com- 
puter's reference. 

MOVING A Sprite 

Sprites are positioned and Chen arc 
movctl with two different formats of the 
MovSpr command, fhe format for po- 
sitioning a sprite is: 

MOVSPR <nuiiiber.X.Y> 

The sprite number ranges from I to 8. 
X and Y, which represent the hori/onial 
and vertical coordinates of the upper- 
left corner of the sprite, range from 
to 51 1 and to 255, respectively. 

Unlike coordinates on the hires screen, 
not all of tiicse arc visible- The corners of 
the visible area are at 24,50 (uppcr-lefi); 
3'1'i.m (upper-right); 24.250 (lowcr-leli); 
and 344,250 (lower-right). As you're 
placing a sprite, keep in mind that its 



Table 1. Sprite 


BditDr commands. 


Command 




Result 


Cursor keys 




Move the cursor around thp grid. 


Home key 




Movts the cursor to the top-k-fl corner of the grid. 


Shift/clear-home key 


Clears the grid and homes tht cursor. 


Return key 




Moves the cursor lo the beginning of [he next line. 


Run-stop key 




Exits (he current sprite-definition grid. 


A 




Toggles cursor advance on and off. 


1 




Krascs data "under" (he cursor. 


2 




Places foreground data "under" the cursor. 


5 and 4 




Place multicolor data "under" the cursor. 


Controin-8 




Activate the firsl eight foreground colors. 


Commoc!orf/I- 


a 


Activate the last eight foreground colors. 


C 




Copies sprite data Ijctween two sprites. 


M 




Toggles Muhicolor mode on and off. 


X 




Toggles horizontal expansion on and off. 


Y 




Toggles vertical expansion on and off. 



boundaries won't he visilile againsi a 
blank background. 

Now, plate your second sprite on Uie 
screen with: 

MOVSPR2.150,l.iO 

The format the MovSpr command 
takes for setting a sprite in motion is; 

MOVSPR <sprilc number,anglc#.spccd> 

The angle, ranging from to 'MM) de- 
grees, is the direction in which die 
sprile will move. On the screen, zero 
degrees is up, 90 degrees is to the right, 
I HO ilegrees is down, and so on, just like 
compass directions on a norib-orienteci 
map. The speed can range from to 
15, with 1 5 ibc fastest, f hese speeds are 
fun to play with, and you'll enjoy watcii- 
iiig your sprites ^ip about at speed 13. 
However, that's really loo fast for liasic 
to handle, and you'll have a hard time 
keeping the sprites under control, 

fype in the following line anti watch 
your sprite move: 

MOVSPR2,90#7 

Then try changing the values. When 
you're done, stop the sprite and repo- 
sition it with: 

MOVS1'R2,0#0 
MOVSI'R2.1 50,150 

Now notice the various colors in die 
sprile. One is the backgrountl color ])ro- 
vided by the computer, and you set an- 
other in your initial Sprite toiniiumd. 
■fhe other two colors can be set with die 
Basic 7.0 SprCJolor command. Mere's the 
format: 

S]>R{;OI.OR<muIticolorl.imilticolor2> 

Ibe.se two colors, along with ihe back- 
ground color, will be common for all 
die sprites on the screen; the only color 
that can be unique is the one set with 
the Sprite command. 

The following line will produce a red, 
white and blue sprite: 

s]'R(:ol()r:{.2 

'fry lurning it into a flag and then ex- 
perimenting with its colors. What would 
the Star-Spangled Banner look like 
flying across the screen in green? 

Sprite Colusions 

since sprites can move, they fre- 
quently "collide" with each other and 
other objects on the screen, Basic 7.0 
provides two connnands for handling 
such events, and one is a])j)roj)riately 
named Collision. It takes the following 
formal: 

COLLISION <type.linc numher> 
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It acts like a Goto commaTid, sending 
I'xettition to ;i suhroiitiiif al tliu s]ic(i- 
fled line luimber when ii collision is 
detected. Alter the sub ton tine is done, 
you can re\ett to where you left offwitli 
a Return command. 

Tlie (k>lIisioii command tan handle 
three types of collisions: 

1. Sjjrili'-tosprite. 

2. Spritotu tliaracier. 

3. Light pen. 

In this tutorial, I'll (ieal with only the 
first two, Spritetosprite is self-explan- 
atory, but note that "chiiractcr" in 
sprile-to-charactcr doesn't necessarily 
mean a letter on the screeni it ean also 
mean a j^rapliics character on ihe hires 
screen. 

The Gollision command conies in 
handy for .simple programs, hut die slow- 
ness of Basic limits its u.sefnlness for the 
follo'i\ing reason. When a collision is de- 
tected, the computer doesn't Jump to the 
.subroutine until it finishe.s executing the 
rnrrent comtnand, Dnring this time, the 
two s[)riles thai collided can travel a j^oixl 
disiante, because the computer automat- 
ically moves sprites during the hardware- 
intetTU|>t interval. Because this inienal 
is too short for Basic to handle, some 
people turn to die speed of machhie 
language. 

The second cotntnand available for 
haiidlhi^ sprite collisions is Binn[). It 
has lw<i possible modes: 

1. Spritetosprite. 

2. Sprite-to-charactcr. 

Bump is clifficnlt to understand at 
first, because it doesn't come out and 
say, for instance, that sprites 1 and 2 
collided; it reports a ^ instead. Three? 
Hump (teats (he eight available s]nites 
as bits in a byte, so ihey have the usual 
place values for hits; 1, 2, ■!, 8, If). :W. 
64 and 1*28, The numhef the Bump toni- 
niand returns is the total of the place 
values of the sprites that collided. For 
example, if sprite I and sprite 8 col- 
lided, a value of 129 wotiitl be returned. 

Listing I contains a short program 
that stages a sprite race to illnsliale 
simple collision handling. 

Listing 1. Sprite Rsce program. 

100 .S(;\(:i.R:tiRAi'HK; 
l.l:IU)X!.l,H).;il',l,a().,l 

no si'R[ii-;i.i.;i:Si>RiTi-::i.i.7....l: 

Sl'KCOLORfi.H 
120 M()VSPRLlO0.'2O(l:M<;n'SPR2,27f).2()O 
I-tO ,S(1) = lNT(RNn(1 )•-))+ i:S(L') = tNT 

(RNI)(1)*.i) + l:IFS(1) = S(2)TIIENU« 
150 M(>VSI'R1,0#S(1):MOVSI'RS,0#S(2) 
I.';.'; COl.l.1SK)\2:COl.L1SK)\2,170 
IfiO GOfOKiO 



170 A = BUMr(L>):t'R[NTA 

17,') C0LI.1S10N2 

!H0 M(n'SI'R1,l)#0:MOVSl'R2,n/*0 

ItK) 1K1!LI.\11'(2)= 1 IHENt'RlNf-Sl'Rrf!'; 

ONK IS '1Hf. Wl.NNKR!" 
20U 1FBUMP(2) = 2 nlF-NPRIM -'.SPRITE 

TWO IS IHE winner:" 

210 GR.APH1{:0 

Line 100 di aws the fmish line for the 
race, faille 1 10 turns on your two sprites 
and sets the multicolor values for sprite 
2. Line 120 [jositions the sprites, line 
l'!0 selects a random speed for each 
and line 130 sets them in motion. 

Iti line 1,'),'), notice that the first Col- 
lision command has no line number. 
Wheti the line number is cnnilted. a 
(Collision command clears .my jnevious 
collision values, fhe secorul tloUision 
command in line 153 .sends execution 
to line 170 wlien a sprite-to-character 
collision is delected. Line 100 is just an 
endless loc)[) that repeats until a colli- 
sion occurs. 

Line 170, which begins the collision 
handling subi<nitine, stores the value 
letmned by the Bum]) comtnand and 
prints that v:!lne. Line 17.") clears all 
collision information, and line 180 
stops the sprites. The computer deter- 
mines the winner by checking the Bump 
value again in line 190 and, if necessary, 
line 200. Finally, the uiessftge is dis- 
played by line 210. 

The value of Bnni]) is laken twice to 
illustrate a point, flic Bump command 
is temperamental, and, if you run the 
program several times, you'll notice that 
the value stored in variable ,'\ isn't al 
ways correct lor the winner. .Sometimes 
it will be li, which would mean that bolh 
sprites hit the backgroiuul at the same 
time. Thai's why line 17,") cuicels any 
previous collisicm values and cheeks the 
values again. 1 bis is possible with this 
program because the sprites are frozen 
immediately, 

Trv experimenting with the .Sprite 
Race progi:un I)v adding more contes- 
tants or making other changes. 

Animation 

Yon tan do :uiimation on the (M28 
with both hires graphics and sprites. 
However, the latter are more effective, 
because they provide a much more lluid 
transition beiween sha])es, 

.'\niniation is created by ra})id "flip- 
ping" through a series of pictures, each 
of which is slightly changed from the 
previous one. Because our eyes retain 
an image bvieOy after the object is gone, 
we don't detect the ga]) between pic- 
tures, bui seem to see ihc sequence as 
continuous. 



This illusion is easy to create on the 
C-12M because <il the SprSav command, 
which lets yon co]jy data beiween s])rites 
ami variables. The formal lot this com- 
manil is: 

S P R.S .-W <scuirce.d es r I n at i o n> 

Both source and destinatiosi of the data 
can be cither a sprite or a string vari- 
abh'. fhe latler stores a hires slia])e thai 
has usually been saved wilh the SSba))e 
command. Fhe sha])e can be recopied 
to the hi-ies screen, oi", more im[)or- 
tant for our pin [)o,se4, to a sprite, 'the 
format is: 

S[1APE<variablcS.X,Y,X2,Y2> 

The X and Y coordinates mark the 
toi)-left coi tier of ihe shape, while X2 
and V2 mark the botiom-righl. Be care- 
ful not to make ihe shape too big — 
s[)rites can't handle shapes bigger than 
2'!x2L Y'ou'll avoid any problems if 
you always use coordinates 0,0,23,20 
when saving shapes that will be used 
witli sprites. You'll also avoid probleins 
by making sure you're not in a Multi- 
color gra])hies mode. 

IN THE Olympic Spirit 

Listing 2 contains a small ptogram 
that shows simple animation: the OtvTn- 
|)ic rings spinning on their axes. Type 
in the program and then riui it. 

Listing 2. Olympic Ring pragram. 

KJO GR.Al'HlCl,l:(:OLOKIJ,l: 

(;OLOR-l,l:C()LORl,2 
nil W1DTH2 
l:ill mRT= lOrOISIFP- I 

Mil (:iRCi.Ki,iii,iii,r,ii) 

1 ,')ll S.S! {APi'-SS(T),l).0,23,20 
Kill t;RAPHICI,1 

1711 NKxrr 

191) A= 1:T = 2 

200 MOVSPR 1 .100, 100:MOVSPR2, 

n5,H)():MOV.SPR;5,I30,100 
20.-, MOVSPR-1.1 07. n,^):MOVSPR.-i, 122.1 15 

210 no 

220 f = T-fA:IFf =10ORr=l 

■ni[-:NA= -A 

2;i0 FORB = lf().f. 
2-!0 SPRS.WSCI ).B 
2-)0 SPRITEB.1,B+ 1 
2(i0 NEXTB 
270 LOOP 

Line 100 sets up die graphics screen, 
and line 1 10 sets the pixel width to 
double the normal size. Line UIO creates 
a loop, and line MO draws a circle that 
decreases in width with each loo[). Line 
L'lO is the key to this loop: It .saves the 
shape drawn in line 140 for use in 
sprites. Line IbO clears the screen, and 
line 170 executes (he loop until 'F e()uals 
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1. Line 190 sets variable A, the incrc- 
mt'iit. iind variable T, [he pointer thai 
indit-ues which shape lo copy into the 
s[>iilcs' (lata registers, riien lines 20(J 
and 'J 10 position the sfjiiles. 

The endless loop hi lines 210-270 is 
the heart of the progriim; it creates the 
animation. Within (he loop, line 220 
updates the shape pointer, and the For 
statement in line 2^50 starts an inner 
loo]) that copies the shape data into 
eacii of ihc five sprites used. Line 2'iO 
does the actual copyiiitj, with line LTiO 
taming on the sjnitcs. The operation 
in line 250 could have been placed in 
its own loop before line 210, but the 
projri'ant is shorter with it here. Line 
260 ends the For-Next loop, while line 
270 restarts the main loop. 

When y<Hi run this prof^ram, you'll 
see five differenl-colored rings spin- 
ning <ni your screen. They'll tomiuue 
spinning until you press run-stoph'e- 
store, followed by CRiXPHICO. Study 
the program and perhaps make a few- 
changes, such as subsiituling the follow- 
ing lines: 



140 BOX1.I()-T,!,10 + T.2() 

1-10 Boxi.m- r.],io-fT,2(),;w*T 
140 circ:lei,io,io.t.io,.,36*t 

Saving and Loading Sprites 

After you've drawn some detailed 
sprites, save them to disk for later use. 
To save your sprites, type: 

flSAVE"namc",U(),l'3ri84TOIM0!l(i 

To reload theni later, type in: 

Bl,O.\ri"naijic",B0 

Reading Sprite Parameters 

If you're using your sprites in a pro- 
gram where they're constantly changing 
position, color, and so forth, you may 
want to find out what their current con- 
dition is. Three commands — RSpriie, 
RSpI'os and RSpColor— will tell you al- 
most everything you want to know. The 
formats for these arc: 

RSPRITE <sprite,attribute> 
RSPPOS <H])ri(c,charat(cristic> 
RSPCOLOR <reKistcr> 



The sprite [parameter is the number 
of (he sprite for w^hich you want the 
itiformation, and the attribute p;n-am- 
eter is the s])rite attribute for which you 
want the value. The attribute values 
range from to 5 for each of the six 
parameters available vsitb the Sprite 
command. An example would be: 

PRINT RSPRHE (1,1) 

If a value of 1 was returned, the sprite 
was on. 

Characteristic is the same as attribute, 
but for different jjaramcters. Charac- 
teristic values can be for the X loca- 
tion, ] for the Y location ami 2 for 
S])eed. Register values arc 1 for inulti- 
coloj- 1 and 2 for nnUticolor 2. 

I'ry differeivi v;iri;uioiis of the j)ro- 
grams here. Start off simply, ihen work 
your way up, and soon you'll be th}ing 
things you never thought possilile. ■ 

Hob Kennedy is a university studmt with 
several years ' comjntling fxperienrc under h is 
belt nnd several magazine articles to his 
credit. 
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SPORTS FANS... THE SPORTS SIMULATIONS YOU HAVE BEEN WAITING FOR ARE HERE! 

3 IN 1 FOOTBALL 

• with Stats Compiler for each player and team • you choose from 14 offensive plays and 6 defensive formations • includes 180 college 
teams and tire 28 Pro teams from ihc '87 season PLUS 174 great college and 189 great pro teams of the past 

COURT SIDE COLLEGE BASKETBALL & BASKETBALL: THE PRO GAME 

iracli player Loiuriliutcs as ihcy did in real life • Slats Compiler • you determine starting lineup, substitutions, shot selection, passing, 
offensive and defensive styles of play and more • (he College game includes 292 teams from the '87-'88 season plus 70 all-time greats 

• the Pro game features the 23 Pro teams from '87- 'S8 and more than !25 great teams of the past 

FULL COUNT BASEBALL 

• Includes all 26 teams from the most recent and 52 great teams from the pasi • 29 man rosters • Ball park effects • Stais Compiler 
automatically keeps all player and team slats as well as past schedule results. • Complete bo\scorc to screen and /or printer after each 
game. • One player vs. computer manager, two-player, and auto-play options. • Input your own teams, draft or trade players from 
(cams already included. • You choose Ihe starting lineups, batting order, relief pitchers, plus game decisions like when to hii away, bunt 
for a hit, sacrifice, sieal. hit & run, bring in the corners or the entire infield, lake an extra base, DH option and more! 

FULL COUNT Standings & League Uader Program $14.99 

OTHER PAST SEASONS' TEAMS DISKS AVAILABLE AND NEW SEASONS' READY PRIOR JOPLAYOFFS FOR ALL GAMES 

Send check or money order for S39.99 each. Visa and MasterCard accepted on phone orders only. 
Pi ease add S 2. 00 for postage and handling. 

- t 1.^ m • ■ - ■ ml m t ■ ■ » * - ' 1 ) ■■ "T* • — i 

P.O. Box 100594 ■ Nashville, TN • 37210 • 615/242-2617 
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TOLL-FREE ORDERING 
1-800-343-0728 

Ask for the TAB BOOKS operator, 



Discover How Much More You Can Do 

With Computer Guides From TAB 

THE COMMODORE PROGRAMMEFI'S CHALLENGE: 50 Ctiallenging Programs 
to Test Your Programming Skills— With Solutions in BASIC, Pascal, and C 

by Steven Chen 

Have fun while expanding your programming expertise. These stimulating problems include: 
mattiematical questions, character problems involving sophisticated logic procedures, and 
applications programs that demand use of your intuition, deductive reasoning skills, and busi- 
ness acumen. For the 64/128. No. 2ei7P, S14.95 

SERIOUS PROGRAMMING FOR THE COMMODORE 64'" 

by Henry Simpson 

"... ouilinos good programming tachniques as well as helping you get tha most out of ttie 

C64"— Ralnbo Electronic Reviews 

Develop clearly organized, professional-quality programs with the help of this guide. Shows 

you how to program from the top down using a series of modules and subroutines. No. lasiP, 

$10.95 

COMMODORE 128"" BASIC PROGRAMMING TECHNIOUES 
by Martin Hardee 

Programming in BASIC becomes fast and easy with the help of this expert guide. You'll mas- 
ter telephone communications techniques, storing and retrieving data, and sound and graphics 
commands. Over 50 programs yield a wide range of applications. No. 2732H, sib. 95 

COMMODORE 128'" DATA FILE PROGRAMMING 
by David Miller 

Take advantage of the I2a's 80-coiumn monitor and other special capabilities with this collec- 
tion of file-handling techniques and shortcuts. You'll develop a working mailing list database, 
a mathematics tutorial system, a personal medical records system, a home inventory system, 
and a stock market portfolio manager. No. 2805H, $21,95 

TROUBLESHOOTING AND REPAIRING YOUR COMMODORE 64'" 

by Art Margoiis 

"With the complete set of schematics and many well placed illustrations, this Is an excellsnt 

book to help anyone learn to make repairs to the Commodore 64"— Online Today 

Symptom analysis charts, step-by-step repair instructions, safety precautions, and your own 

chip location guide enable you to confidently repair your own C-64. No. ISBSH, S22.95 

ADVANCED COMMODORE 128'" GRAPHICS AND SOUND PROGRAMMING 
by Stan Krute 

Create high-perlormance graphics and sound with yourC-128. Commodore expert Stan Krute 
shows you how with the complete source code for two programs. The first is an 80-column 
graphics package for drawing lines and polygons, pattern painting, and more. The second, 
a sound and music package, allows you to record, edit, print out, and play back sound compo- 
sitions. No. 2630H, S21.95 

ARTIFICIAL INTELLIGENCE PROJECTS FOR THE COMMODORE 64'" 
by Timothy J. O'M allay 

"Well worth the cost and lots of fun.'"— Ralnbo Electronic Reviews 
Explore artificial intelligence with the 16 BASIC programs in this book. They demonstrate tree 
searches (testing all possible solutions to a problem), heuristics (a modified trial-and-error tech- 
nique), algorithms, and pattern searching/recognition routines, as well as game and puzzle 
programs. No. 18B3P, $12. 95 

COMMODORE 64'" ADVANCED GAME DESIGN 

by George A. and Nancy E. Schwent< 

Featuring three full-length games that alone are worth the price, this unique guide shows how 

you can create exciting games for fun or profit. Using the games as models, it explains: how 

to develop a game program . . . what makes a good game ... the pros and cons of game 

programming in BASIC, assembly language, and FORTH . . . and more, No. 1923P, $10.95 



SATISFACTIOH GUARANTEED 

If you arc (Kt ccrrplekry jalijfrtd xritri Th< bocM you ttc^ivt, joi may return 
ht (Ihtm) within li itfi tor ■ ttmflttt tthlM—m SflMitK nlai'. 

TES, I want la it\ ntoft Iron) tnf CommQ^t with Vmt fnit boiki from 
lAB Senij m m (olicwini: 



G Chttli'moiKif otitf J tiKljssl iirnle lij)iblt to 1AB BOOta Ire. 
Qiarce tny Q VISA Hj WdsTetCard G Amvictn bfm.% 



No.. 

No . 



Signiturt 

Niwi _ 
Address 
City 



.E*P 



Mail coupon lo: WB BOOKS Inc., Blue Ridge Summit, Pfl 17M-08J0 



SIllEfZljl 

PA reiiden/li rid tK llMl iv. Ofdift tnHati to eridll lppr»vil ^KM tubj«E la chi^j^e. 



PnOGRAMMllUG 



The Sound of Basic 

Bellsj whistles, siren soimds or beautiful mmic— let's hear it 
from your Qmimodore. 



Wc Comriuidore owners 
somciimcs fVirgel liow 
j;()(i(i wo havf ii, espe- 
cial Ij- uiR-ri it comes to 
tlif souiui aiiti imisic ca|)abilitics of our 
mnchint-s. VVtiui ivas siatt-of-ihe-art 
sound whfii iiiiroiluccfi by the C-64 is 
still iin[)iessiv<', and, wltile tlie (:128 
(iielii't adil ainjilifi SID chip to give us 
six v()iics. it dill f^ive us simK Basic 
Sdiiiul and iiucic ciiminands that make 
wiirkinj; w'wh sound a lot easier. 

A SID Primkr 

Jusi like the old-time fiddler who said, 
"Siue. I kiiosv liow to read uiiLstc — but 
tiol ejiongli til liun my |jlayiiig," you 
don't have jo ineninri/e eveiything 
lluTe is lo kin>w' alioiil the SH) chip to 
gel great sounds and nnisic out of your 
(:-()l oi (M2H. thiwever, a little knowl- 
edge ivill keep yom' experiments going 
in the right (ihection. 

All sounds on the C-64 or C-128 are 
produced hy die MOS (i.'jKl SID (sound 
inicrlace device). This chi|i has three 
iiide|ieiidein voices that inn make three 
ditierenr sounds at once. The SID is 
com roiled hy fiiacing diflerent values 
(whole bytes, or siniieiiiues jusi certain 
bit.s in a byte) in specified memory lo- 
cations called regisicrs. 

With the C-()-l. you have to place these 
values vonrself, using niemoryslore op- 
erations IVcnn a machine language j)ro- 
gram or Poke coniinands I'roni Basic. 
1 he .Sound, Envelope, Volume and Play 
commands in the (-M28's Basic 7.0 do 
these Pokes automalicaliy, and I'll give 
you some examfjles ih;n show how eas- 
ily some very complex sound elf'ects can 
be achieveii. 1 [owever, you can stilt cre- 
ate sounds die (i-! way, as long us you're 
in bank 1."). So, uoihitig you learn about 
sound on die (Mil has lo go to waste 
wiib the CVIH. 

Be sure lo read jiages 'I,'i7-I69 in the 
C-6f /'wfritimmi-r\ Refni'iue Guide or 
pages f')()5-(> HI i ii the C- 12H Programmer's 



By BRUCE JAKGER 

Rcft'rmre Cuuk for a deiailed clescri])- 
tion of the SID chi[> and its control 
registers. Kven if you're ii C-128 owner, 
you'll probably want to buy the VAH 
book; the 128 version is prettv skinipv 
on SID. 

ChjIracteristics of SOUNi>S 

\ note's frequency is liie number of 
cycles pi'r set rind of its waveform, which 
fjroduces the pitch of ihe note— in 
other words, hou high or low the note 
sounds. A note with a greater fre<|uency 
(or pitch) sounds higher than one with 
a lower frequency. 

The pitch of each of tlic SlD's three 
voices Is speciiled by poking values into 
a two-byte register, in die low-liyle, high- 
byte style famiiiar lo (J.'idL* program- 
mers. Using two bytes is neressary be- 
cause each byte can liold values only 
from to 255, while fre(|uency needs 
to range up into the thousands, 'fhe 
value stored in the high-byte register 
(Fre(| i 1 i) is mull! plied liy 2.')f> and added 
to the mimbei in the low-byte register 
(Frefj I.o). Ptn examfile, lo store the 
number -140 in the fre<[uency registers, 
you'd poke 1 into the high byte and IS-1 
into the low byte: 1*2')()+ KS4 = 440, 

Unfortunately, these values don't cor- 
respotid to actual frequencies; 4-Ht 
poked into a SID IVequency register 
doesn't [)roduce the l-KJcycle-per-sec- 
ond (Men/) .\ note. So, Comniod<ne 
has included frequency c<niversioti la- 
bles for your use in both the C-()4 and 
C-128 programming guides. 

Harmonics 

We say a ■!-!() Ii/. A note has a fun- 
diunenial freciucncy of -I-H) 1 1/. That 
freijnency is also called the first liar- 
monie, because it's the most iin[ioi lanl 
coniponetll of the sound. However, on 
just aboiu any instrunieni oiher than 
the purest of sine-wave getieraims vou'll 
hear additional harmonics: a second 
barmoidc of HSO 11/ (twite lh:it of die 
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finidameinal frequeiuy), a thiid liar- 
m<mic of i;i2() 11/ (three times the fun- 
damental frequency), and so on. 

The harmonics often get weaker as 
they increase in frequency. In fact, most 
of the time you're not really aware of 
any frequencies hut the fundanienial 
one until you remove the barnninics 
and hear !niw "thin" the sound he- 
comes, Ihirmonics are just one of the 
reasons the same note sounds differ- 
ently when played on a irmupet, violin 
or clarinet. 

Waveforms 

Conunodore has used different m;nh- 
einatical combinations of harmorncs to 
( reate ihree of the fdm waveforms die 
SlI) chif) can produce: Pulse, I riangle 
and Sawtooth. The fourth waveform, 
Noise, was carefully designed to have no 
mathematically predictable soinid at all! 

Pretend there's a sound with a fre- 
quency of one vibration per second 
making your eardrums move. 'Ihis fre- 
(|uency is far too low to aclually hear, 
of comse, but it will be easy lo use for 
visualizing waveforms. Sujipose the 
sound wave hits your right ear, instan- 
taneously moves your eardrum lo the 
left, waits a half-second, then instanta- 
neously stops, releasing the eardrmn lo 
the right for the remaining hall-second. 
.'\ graphic representalion (4 this "pulse" 
or "square wave" waveform might look 
like this: 




Figura 1. Graphic representation 
of Che Pulae waueform. 

{Ibis is a theoretically perfect wave- 
form; never mind for now the inertia 
of your eardrum, or of inesleculcs, that i 
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FINAL CARTRIDGE m® 

The Best UtUity Ever for Your C-64 or 128 



Only! 



$69.95 Onlyl 



SPECIAL VALUE: FREE Joystick and FREE 100 PARAMETER PAK, 

$39.95, Willi each purchase FINAL CARTRIDGE m 



Total Retail Value, 

This powerful ROM-liitscfi operating 
system contains easy-to-iLsc windows 
and pull down menu.s. Allowing tlit> 
user to Holect either mouse, joystick 
or kcyboarti, he may acceHS over (ifl 
new commands and functions. Let 
your C-64 perform like an Amiga. 
Various printer interfaces as well as a 
basic toolkit can also be accessed. 

Extended ML MoNtrOR 

Does not rt'sidt' in mcinnrj'! [nchides 1541 
drive acct^ss and sprite edltiiiR, Foatiiros 
up and down strrolling and printer driver! 

NotePad/Woro PnocEsson 

Contains proportional characters and wonl 
^vrap. Enables you to store and print sntidl 
notes, etc. 

Fastest Disk Loading Ever! 

ContaittM 2 disk k)aders, with speeds up to 

15x faster than normal! 

Transform Your C-64 Into 
An Amiga Look-Auke! 

Various windows such as: Preferences, 
Tiipc, Disk Windows, Uin.'clorj', Primer & 
Clock allow ycjii to feel as if you are 
working! in the same friendly environment 
as tile AiniHa! 

EASy-TO-UsE Menu Bar 

Almost any command not activated by 
windows can l>e accessed while in Basic 
by just typiuK in Itox. 

Basic Toolkit & Keyboard Extras 

hicludes: Ueiuimberiiig, auto, old, delete, 
kill, save, 2-lK fc\M for IJasic, fast fontuu 
and many, many more. 

". . ./ am 'I Ixx/in to ttiivit nf a (xirtritbji' 
which dtH's Sft many ustfiil Un'iitis. . .a trr- 
tnenduua tiiliu; ii luiLtt ifi-iii fur tin- BA- 
SIC ami machitiif Iniit/iKige prriifnimmt'r," 
—Art Hunkins, Computc'g Gazette 7/87 



State of the Art Freezer 

Includes \'ariahle size screen dumps (color 
if Epson color or NEC is used). Allows to- 
tal backup of any metnory-rosident soft- 
ware c)n Ihe market today! raes are 
packed and reloadable wilhoul the car- 
tridge, 60K iji just 15 seconds. Exits to 
Basic or ML monitor. 




Games Killer 

Kills sjirite to s|)rite and.'or liackgroiuid 

collision. Can be started at any |xnnt in 

your games. 

Auto Fire Engine 

Transfonns normal joystick into an auto 

fire! 

Easv-td-Use Reset System 

iteset your c<3niputer by the simple tou<'h 

of a button!! Wow!! 

"Wo need for nil those extnut when ymi 
have this C-G4 n.'xistant. , .a (xmi^ntionat 
nnrieKi (iocati't dv the Fivnl Curlridije j\>.s- 
tire. . J'un <it a price i,s fi rarili/, " 

-Tim Walsh, RUN Mawtxine S)/H7 



INTRODUCING SUPER CARD 

Hacks up any software program! 
Even the latest protection schemes! 
Plugs Into your drive with only the 
use of a screwdriver. If anything 
could back up everj'thing, this is it. 
100% satisfaction guaranteed! 10 day 
or money back guarantee! 

ONLY $39.95! 

FINAL CARTRIDGE II 

ONLY $24.95 

Call or write for more information 




COMPUTERS 
OF A.VIERICA 

Home & Personal Computers of America 
154 Valley Street 
South Oniii«e, NJ 07079 
201-763-384(5, dealers only, 201-763-1693 

Clfcltj 409 on Read&r Servlco card. 



Attention Schoobi tuid Educators: 

C-Scan + is tho uldmatp network for C]omm<Klore 

ecimputeni, eiKht t'cimpuiers share one or two disk 

tirivt^, and only one primer and sofiwart* projinun is 

ne^Nii^- 

Sirnple tnslaliatioTi. uuto icannlnit And milo lyjWLT on. 

Worlis p*rfcrlly Willi Dip Unill Cartridne. 1 year 

warranty. 

C-Scan+ 1198,95 

Cables available In ilie follow-ing li-iiKtlis; 

•I ft. . . sia.sw __ 
12(1. . . sis.as I in, 

18 fl. . . S I7.!» ■ - -- ' M ,Y-| , , 

aen. . . sifi.« 
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EXTRAS AVAILABLE 

•Final Carl ridge 1 $14.95 

•C-1351 MoiLse , $32,95 

Deluxe Joystick S 8.95 

Cent, printer 
cable' (optional) SI 9,95 

' l.irnileti qi[a[Hi[Ji'4 aviLjLiblc. 

Ordering Info: 

Orders Only Call: 
1-B00-45S-B682 

MCA/<sa accepted Money orders {immediale snipmentsj 
Personal cneck (allow 2-3 rteei<s for check clearing) NY & 
UJ resklenls add appropriate sales taj. Add $3.CX3 for s/h. 
Questions and info caH: 
K01)763-39'I6 
Fan- (JD))?63-I693 

ANY PRODUCT PURCHASED FROM 
DATEL ELECTRONICS WILL NOT 
BE GUARANTEED BV H&P 
COMPUTER. 
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makes a jjcrffftty square wavcfoini 
impossible.) 

Now, sup|)<»se llu.' sound wave lilts 
your fur, gr;ulually and evenly moves 
your eardrum lo ihe left for a half- 
seioiid, then j;iadu;)lly moves llie car- 
drum back lo ihe right. A giiiphic rep- 
lesentation ofthi.s waveform is c;illed a 
"irianglc," because it looks like this: 




Figure 2. Tho Trtsngto MiBusform. 

Next, suppose the sound wave hits 
your ear. gradually ami evetrly moven 
your eardriitii lo tiie left fbi a second, 
then stops, inslanlly releasiii;^ ihe ear- 
dtutii back to the right. A graphic rep- 
resemaiion ofihis waveform is called a 
"sawtooth": 




30 GOSUB 150: REM RESET SID 

;REM*199 
It) POKE SD-f2, 100; POKE SD+3,1 

:REM*232 
50 POKE 30+24,15 :REM*165 
60 POKE SD+6,24f} :REM*186 
70 POKE SD+1,50:POKE SD,1 

:REM*159 
80 FOR X=1 TO 4 :REM*207 
90 READ WV,WV$: PRINT WV$ 

:REM*250 
100 POKE SDt4,WV :REM«62 
110 POKE SD+4,PEEK(SD+4) OR 1:R 
EM START A/d/S CYCLE 

:REM*247 
120 FOR DELAY=1 TO 1000:NEXT DE 
LAY :REM*4 5 

130 NEXT X: GOSUB 150: END 

:REH+103 
140 : :SEM*19fl 

150 FOR X=0 TO 23: POKE SD+X,0:N 
EXT; RETURN :REH+119 

160 : :REM+218 

170 REM WAVEFORM DATA :REn*6 
180 DATA 16, TRIANGLE: REM BIT 4 

:REM*198 
190 DATA 3 2, SAWTOOTH; REM BIT 5 

:REM*88 
200 DATA 64,PULSE:REM BIT 6 

:REM»134 
210 DATA 128,MOISE:REM BIT 7 

:REM*249 



'Ihe .same nole, louder, might ajjpear 
like this: 



Flgurs 6. Ths samo sound, only louder. 

Xole diat the distances between the 
w aves arc the same in each case, so the 
two notes are of ihe same frequeiicv. 
Iltjwcver. the anqilitude of die sei oiid 
nole is gieaier, so die nou' is louder. 

Envelope 

The envelope of a note iiitludes four 
diireient coinponems of a note's tone: 
attack, or the time it takes the note to 
reach its peak volume; decay, or how 
soon it drops down lo what might be 
called the note's average volume level: 
sustain, or how long it stays at that level: 
:iinl. Iin;d!y. release, or how long it lakes 
for die sound lo slop. Here's a graphic 
leinesentalioii of how an envelope 
might look: 



Flgurs 3. The Sawtooth waveform. 

i'iiKilly, su))p(ise ilie sound wave hits 
your eardrum wiih all sorts of random 
[)ulses. This Noise waveform might look 
like this: 



Listing S. Wauafarm comparison 
program (C-ISS]. 



fimwv 



Figure 4. The Noise waueform. 

'Ihe C-64 program in Listing 1 dem- 
onslrates what each of these waveforms 
sounds like. Von c;ui run this program 
on a (ML'S also, hut |necede it with a 
HANK 1 ,"i command. (Don'i worry for 
now if you don't understand what all 
the I'eek and Poke commands mean; I'll 
explain them later.) 

The program in Listing 2 iloes the 
same thing, bul it's designed for the 
CM2S. Notice how mueh sim])ler it is. 



Listing 1. Waveform comparison 
program (C-64]. 

10 REM WAVEFORMS (C64) :REM*249 
20 SD=54272:PRINT CHR$(147) 

:REM*1 4 3 



10 HEM WAVEFORMS (CI 28) 


:REM*216 


20 PRINT CHRS(147):VOL 


15 




:REM*140 


30 FOR X=1 TO 4 


: REM*! 57 


40 READ WV,WVS:PRINT WVS 




:REM*1 72 


50 SOUND 1 ,12000,35,0,0 


,0,WV,20 


48 


:aEM*173 


60 SLEEP 1 :NEXT X 


: REM* 98 


70 VOL 0:END 


: REM* 4 3 


80 : 


: REM* 138 


90 REM WAVEFORM DATA 


:REM*21 5 


100 DATA 0,TRIAi^GLE 


:REM*3 


1 1 DATA 1 , SAWTOOTH 


:RE.M*7 3 


120 DATA 2, PULSE 


:HEM*10 


130 DATA 3, NOISE 


; REM' 223 



VOIJUME 

Ihe volume, oi amplitude, of a sound 
is merely how loud it is. I^t's say we 
have a sound with a Sawtooth waveform 
dial looks like iliis: 





FIgura 5. A sound created with the 
Sowtnath waueform. 



M1,V1,K IIH.W 



Figure 7. Repreaentacion of a sound's 
em/elopo. 

N'oie that, unlike the previous dia- 
grams, which showed a sound's fre- 
(]Uencv, this graph shows the relative 
volume, from when the nole begins to 
when it dies off. If the sound were that 
of a hamme: hilling a length of iwo-iiy- 
fonr, die attack and decay pan of the 
envelope would he accenlualed, with 
almost no sustain or release, becaitse 
hammers and two-byfours don't reso- 
nate very well. When a bow is drawn 
across a violin siring, however, the at- 
tack is gentler, wiih :ilmosi no decay, 
and the sound sustains until die how 
stops itKiviiig, al \vhi( h pr)iiit il it'leasc's 
at a rale that says much about the ([iiality 
of the violin. 

Lisling 3 is a VA\\ program you can 
use to play with selling rates of attack, 
decay, sustain and release. Try Ihe val- 
ues listed in Figuie H and nole the dif- 
ferent results, 'I'lie program will keep 
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running until you inpulanegativL-iviiiii 
her far All ark. 

Listing 3. Envelope experiment program 
tC-B4]. 

10 REM EDVELOPES (C64) :REH*174 
2$ SD=54272:PRINT CHR$(147) 

:REM*143 
30 GOSUB Z40:REM RESET SID 

:REM*20Ci 
40 POKE SD+24,15 : REM*! 75 
50 INPUT "ATTACK (0-15) ";A 

: REM* 96 
60 IF A<0 THEN END :REM*111 
70 INPUT "DECAY (0-15) ";D 

:HEH*1 22 
80 INPUT "SUSTAIN (0-15) ";S 

: HEM* 4 
90 INPUT "RELEASE (0-15) ";R 

: REM* 2 2 
100 AD=[A*16)+D : REM* 47 

1 10 SR=(S*16)+R :REM*] 24 
120 POKE SD+5,AD:REM ATTACK/DEC 
AY :REM*97 

130 POKE SD+e,SR:REM SUSTAIN /RE 
LEASE :REM*14 9 

140 POKE SD+ 1,25: POKE SO, 1: REM 

FREQ :REM*7e 

150 POKE SD+4,32:REH SAWTOOTH W 
AVEFORM :REM*163 

160 : :REM*218 

170 POKE SDt4,PEEK(SD+4) OR 1:R 
EM START A/D/S :HEM*13 
180 FOR DELAV=1 TO 1000: NEXT 

:REM*147 

190 POKE SD+'l,PEEK(SD + 4 ) AND 25 

4:REM RELEASE : REM* 10 

200 : :REM*3 

210 FOR DELAY=1 TO 1000: NEXT 

:REM*24 5 

220 RUN :REM*103 

230 : :REM*33 

24 FOR X=0 TO 23: POKE SD+X,0:N 

EXT: RETURN : REM* 201 

Tile C I'iH li;is a hiiiltiii KriM'lopc toiii- 
m»nd for easily scniiig aitatk, decay, sus- 
lain and rcieuw, un well as for choosing 
wavefonns and otiicr things, Unforlu- 
n.iteiy, envelopes created with iliis 
command don'i work with the (M28's 
Soinid connnand'. yon cati use ihem only 
with the rlay command. 

Besides letting you design your own 
envelopes, the CM 28 comes with len 
predefined envelopes for use with the 
Play command. Listing 4 demonstrates 
these built-in envelopes, which are siip^ 
posed to sound like various musical 
instruments. 

Llsttng 4. Built-in enuslDpSB program 
for the C-12B. 

1 REM ENVELOPES ( CI 28 ) :REM*2 31 

20 PRINT CHRS(147) ;REM*226 

30 FOR X=0 TO 9 :REM*167 

40 READ E$:PRINT ES :REM*44 

50 PLAY "T"+STRI(X)t"03 CDEFGAD 



04 C" :REM*204 

60 PRINT:SLEEP 1 : NEXT X :REM*3 
70 : :REM*128 

80 DATA PIANO, ACCORDIAN,CALLIOP 

E, DRUM, FLUTE :REM*165 

90 DATA GUITAR, HARPS I CHORD, ORG A 

N, TRUMPET : REM* 3 8 

100 DATA XYLOPHONE :REM+12 

Von can use the Envelope command 
to redefine any of the built-in envel- 
opes. The fornrat is: 

EN\'E1.0PE ijurliber, attack, decay, siistiiiii, 
release, wavefornj, pulse ividth 

Number is the envelope number (0-9) 
you want to nriKhiyi attack, decay, sus- 
tain, and release have values from lo 
13; waveform ranges from to 3 (look 
at the Data siaienrenis in the (M28 
Waveform program); and pulse width is 
a value from t) to -KHIa that affects only 
the I'nise wa\e(brin, 

LJBting 5. Dsfinlng enuelopes program 
for the C-1Z8. 

10 REM ENVELOPE #, ATTACK , DECAY , 
SUSTAIN , RELEASE , WAVEFORM , PUL 
SE WIDTH :REM*1 5 2 

20 ENVELOPE 1,0,2,2,2,1,2000 

:REM*122 
30 PLAY "T1 03 CDEFGAB 04 C" 

: REM* 5 4 

Listing .") is a (|uitk program yon ran 
use to try deOning envelopes on the 



C-128. Run the program over and over, 
varying the values in line 20 (except for 
the' first 1}. 

FILTERS 

The SID can use fillers to remove cer- 
tain ranges of t'rc<|iiencies from a sound, 
to help von achieve the sound you want. 
Ihrce types of filters are available: low- 
pass, high-pass and band-])ass. To ttse 
them, you must set frecjuency cutoff 
points. ,\ low-pass filter lets any fre- 
quenrv below the cutoff point throtij;h, 
so you hear just lower harmonics. A 
high-pass filter lets any frequency above 
the cutoff point through, so you hear 
just higher harmonics. VVith a band-pass 
liher, you sci both high-frec[uency and 
low-frequency cutoff jjoints, spaced so 
th;it the frequencies you desire \«mid 
"fit" between thetn. 

I'ormore information on fihers, refer 
to the section on filtering in the C-64 
|>rogrannning guide (p;ige 199) and to 
the description of the Filter connmind 
in the CM 28 guide. 

Cre/\ting Sounds 

Tweniyfom' byies control the sounds 
coming out of the SID chip. These start 
at memory address ri-t272, to which vari- 
able SD is set in all the example pro- 
gr;ims in this :utirl(-. Ihe parameters 
these bytes define ;ire listed in Table 1. 
1-br more deiaited information oti the 
SID controlling bytes, refer to tliscus- 



Flgura S. Trial values for program in Listing 3. 

Attack = 10 : Decay = ; Sustain = : Release = 
Attack = : Decay = 10 ; Sustain = ; Release = 
Attack = 10 : Decay = 10 ; Sustain = 10 ; Release = 10 
.\ttack= 15 : Decav= 1 : Sustain = it ; Release = 3 



Table 1. StO control bytes 


. 






Voice I 


Voice 2 


Voice 3 




SD low fieqvieney 


SD-i-7 hnv frequency 


SD-^11 


low frecjuency 


SD -f 1 high fi ec|iiency 


SD-i-H hijj;h frequency 


SD -v 1 :> 


high frequency 


SD-l-2 pulse data 1 


SD + 9 pulse data 1 


SD+H) 


pulse data 1 


SD-H3 pulse data It 


SD ■^ 10 pulse data h 


SD-i- !7 


pulse data h 


SD -t- 4 control register 


SD + 1 1 control register 


SD-i-IK 


control register 


SD + 3 attack/decay 


SD+ia attackWecay 


SD-fi9 


attack/decay 


SD -H 6 sustain/release 


SD-h 1!3 sustaiirficlease 


SD-i-20 


sustain/telease 


SD-H21 filler cutoff frequency (low nibble) 






SD-(-22 filler cutoff freq 


uency (high byic) 






SD-h23 niter resonance 


control 






SD + 24 Volume Control 


Filter Control 






Note; SD stands for memory address .'J4272. 
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sions of SID atid tlic memory map iti 
the C-64 piDKiiirii riling guide. 

Bits? 

The Voice 1 Conirol register and itit 
Volume and Filler Control registers arc 
the most coiiJusiiig, because individtiul 
bits, instead of bytes, control the SID. 
This isn't the place for a tutorial on i!ie 
binary miinbcr system, but a little bit 
about it is necessary. Our familiar dec- 
imal system, based on the powers of 10, 
uses ten numerals, 0-9, with the actual 
value of each numeral in a number de- 
pending on its "place" in the number; 
e.g., units, tens, hundreds, etc. In the 
binary system, based on the powers of 
2, there are just two lunncrals; and 1. 
We use binary in computers because 
can statKl for "off" and 1 for "on," 
which lends itself nicely to electronic 
switching. 

Every byte is made up nf eight bits, 
with each bit either 1 (on) or (ofO, 
depending on whether or not the bit 
"place value" is used in the nmnber. 



Figure 9 shows the decimal value of 
each bit in the following binary num- 
ber: 10 10 1 1. There's a I in the 
"128" column, a 1 in the "IG" column, 
a 1 in the "2" column and a 1 in the 
"1" column. 128+ I6-I- 2-h 1 = l-t7. 
Therefore, lOOIOOll in binary equals 
147 in decimal. 

Now, let's see why it's important lo 
know about bits. Refer to Table 2 for a 
list of the bits controlled by the Control 
register for Voice 1 and Table 3 for the 
Volume Control, Filter Control register. 

Basic has no direct way of turning a 
bit on or off. That must be done through 
And, Or, Peek or Poke commands. 
(Look up And and Or in your Basic 
references.) l/.'t's say you want to set l)it 
5 of tlie Control register to turn on the 
Sawtooth waveform. Ytni know that bi- 
nary bit 5 has a decimal value of '12 
(215; check the binary table again), but 
youcan'tjust pokea32 into the register, 
because 32 in binary is OOIOOUOO, and 
all those Os might turn off something 
you want on. So, to turn bit 5 on, you 



Figure 9. Broakdawn of a sampit byta. 

Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit 

(128) (64) (32) (16) (8) (4) (2) (1) 

10 10 1 ] 



Table S. Values In SID Voice 1 Control regiatai*. 
Bit Control. . . 

If I, starts AttackfDecay/Susiain cycle 

If 0, starts Release cycle 

synchroni;;es Voice I oscillator with Voice 3 
ring modulates Voice I oscillator with Voice 3 
disables Voice 1 
enables Voice 1 
select.? Triangle waveform 
selects Sawtooth waveform 
selects Pulse waveform 
I, selects Noise waveform 



Table 3. Vaiuee in SID Voluma Control, filter Control register. 
Bit Controls. . . 

0-3 Control volume, which can be set to any value from to 15. (Co 

hack to the binary chart and add up ttie [jossiblc values of bits 
0, 1,2 and 3. That's 1 -(■ 2 + ■! + S = 15, die highest possible number 
thai can be represented with three binary bits.) 

4 If I, selects the Filter Low-Pass mode. 

5 If 1, selects Filter Band-Pass mode. 

6 If 1, selects Filter High-Pass mode. 

7 If 1, tiuns off Voice 3 output 



1 


If 1 


2 


If 1 


3 


If 1 




IfO 


4 


If 1 


5 


If t 


6 


If 1 


7 


If 1 



have to peek the value in the Control 
register, perform a logical Or operation 
with that value and 32, then ])okc the 
value back into the t;<(nirol register, lb 
turn bit 5 off you'd peek the value in 
the Control register, perform an And 
operation with that nmnber and the 
result of 25.T-32, and poke the new 
value back into the Control register. (If 
that doesn't make sense, write down the 
binary equivalents of the numbers on 
paper, and then try it again.) 

Playtime 

Don't worry if sotnc of that went over 
your head; you can pick up the theory 
gradually while you jilay with variable 
values in other jjeople's sound routines. 
Listings 6-9 provide a few such remtincs 
to start with. 

Llating B. 0-64 siren program. 

10 REM SIREK (C64) :REM*127 

20 SD=5427Z ;REM*19 

30 GOSUB 370:FiEM ENSURE ALL REG 

ISTERS RESIST :REM*23 

40 POKE 304-3,1: REM SET HIGH PAR 

T OF PULSE WAVEFORM :REM*1 94 

SB) POKE SD+2,240:REM SET LOW PA 

RT OF PULSE WAVEFORM :HEM*19 

60 POKE SD+24,15:REM VOLUME FUL 

L, FILTERS ALL OFF : REM* 7 3 

70 REM SET ATTACK TO 1 , DECAY T 

1 :REM*1 47 

80 POKE SD + 5, (1+16J + 1 :REH ATTAC 

K/DECAY :REM*ie2 

90 REM SET SUSTAIN TO 1 5 , RELEA 

SE TO 1 :REH+217 

100 POKE SD+6, (1 5*16)+1 :REM SUS 

TAICi/RELEASE ;RE,M*103 

110 POKE SD+4,64:REM CHOOSE PUL 

SE WAVEFORM : REM* 120 

120 : :REM*17e 

130 REM START ATTACK/DECAY/SUST 

AIN SEQUENCE IN CONTROL REG 

ISTER :REM*33 

140 REM (BY TURNING ON BIT 1) 

: REM* 30 
150 POKE SD+4,PEEK(SO+4) OR 1 

:REM*237 
160 : :REM*218 

170 REM SIREN UP :REM*14 
180 FOR X=15 TO 85 :REM»220 
190 POKE SD,1:REM SOUND LOW FRE 
Q BYTE :REM*1 50 

200 POKE SD+l,>t:REM HI FREQ / W 
E'RE CHANGING IT :REM*195 
210 GOSUB 340:REM DELAY ROUTINE 

:REM*1 55 
220 NEXT X : REM* 12 

230 : :REM*33 

240 REM SIREN DOWN :REM*245 
250 FOR X=B4 TO 10 STEP -1 

: REM* 1 4 9 

260 POKE SD,1:REM SOUND LOW FRE 

Q BYTE :REM*93 

270 POKE SD+1,X:REM HI FREQ BYT 

E / WE'RE CHANGING IT 



R I X 
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:REM*128 
230 GOSUB 340:REH DELAY ROUTINE 

:RKM*193 
290 NEXT X :REM«e6 

300 : :REM+103 

310 GOSUB 370:REM RESET ALL REG 

ISTERS (SOUND OFF) :HEM*205 
320 END :REM*193 

330 : :REM*133 

340 REM DELAY LOOP : REM* 4 2 
350 FOR DEsI TO 2: NEXT DE:RETUR 

N :REM*58 

360 : :REH*163 

3 70 REM RESET ALL REGISTERS (EX 

CEPT VOLUME) :REM*127 
380 FOR X=0 TO 23: POKE SD+X,0:M 

EXT:RETURN :HEM*92 

For Lisling 6, a C-64 progniin that 
generates a siren sounrl, I'll explain the 
meaning of every operaiioiu 

Line 30 makes sure all SID registers 
are cleared by tailing a subroutine that 
pokes a value of into each register 
location except the Wilinuc Control 
byte at SD + 24. (I've foutiti that it's the 
Pokes into SD + 24 that cause all the 
nasty clicks some Basic sound programs 
have!) 

Lines 40 and 50 poke values into 
SB + 2 and SD + 3 for use by the Pulse 
waveform, which is set later in the rou- 
tine. You can poke any luimber from 
to 255 into SD + 2 and any number from 
to 1 3 into SD + 3. I just played aroinid 
with these iiumi)ers until I found a com- 
bination I liked. 

Line 60 sets die volume to full (15), 
and the rest of the Os in die binary 
representation of 15 (00001 1 11) turn 
off all the filtering options, which I 
didn't want. Yon can do pokes like this 
directly — without peifornnng ,'\u(l or 
Or operations with values previously in 
die register— if yon know <-x;)Ctiy wh.il 
you want the whole byte to be. 

Line 80 sets Attack and Decay for 
Voice I. The upper four bits (xxxx. , , .) 
of the byte at SD + 5 set the attack time 
(lower numbers are faster), and the 

lower four bits ( xxxx) set the tiecay 

time. (Again, lower numl)ers are faster.) 
Half of a byie is called :i nibble, by the 
way. To set Attack in tiie high nilsble, 
you've got to take your 0-13 ntnnber 
and multiply it by 16, then add tiie 
product to your 0-15 value for Decay 
and poke the sum into SD-t-5. CAim- 
modorc surely made this tedious, , , 

Line 100 does the same thing for 
Sustain and Release, only this time 
with .SD -I- 6. 

Line 1 10 chooses the Pulse wavefonn 
by .setting bit 6 of the Control register 
ai SD-i-4. Again, I didn't bother to Of 
this value into SD + 4, because I wanted 
the rest of the bits set lo 0. 



Note: Be sure to set the Waveform 
register (SD + 4) just before tinning on 
the sound (see line l.'VO); sometliing 
about the SID chip makes it "ffugct" 
the comenis of that register. I don't 
know why, hut I've noticed that ibis 
happens. 

Line 150 starts things huniiuing. SID 
can't make any sound at all until bit 1 
<)f the C^ontrol register is turned on, to 
start the atlack/decay/sustain cycle. I had 
to be careful here not to just poke :^ 1 
into SD-f-1, because tiiat would have 
put a in the bit fi that I just set in line 
1 lO: So, I did an Or ojjeralion with ihc 
value resulting from peeking SD + 4 
with the number 1, ihcn [ilaced the re- 
sult back into SD + 'I. (l-'or sounds that 
have to be "released" to sound right, 
you'd mm bit I off witli I'OKK SD + t, 
PKKK(SD + 4) AND 254. The siren 
sound in my program doesn't need to 
be released, so I didn't incUide a release 
in the code.) 

Even though bit 1 of the Clontrol reg- 
ister has now lieen .set, there's still no 
sound, because the values in the Voice I 
SD and SD ■^ 1 frequency registers are 
still 0. (,\ freqvteticy of is very tjuietl) 
This is changed in the Siren L'p rou- 
tine, which raises the sound, and the 
Siren Down routine, where the sound 
"swoops" down and sli)|is. 

Line 190 places a I in the IVeijUency 
low byte, and line 2W) plates a changing 
value (X) in the frequency high byte. 
Every time the [jrogratn goes through 
the two Kor-Next loops, the value in the 
high-byte register changes by 1, whicli 
is the same as changing the entire fre- 
i|iiem:y value by 256. (Remeuiber. the 
high byte is multiplied by 25(), ihen 
added to die low byle, to yield ihe fie- 
(|iiency innnber.) 

Lines 210 and 280 just call a delay 
loop to stretch out the sound. 

,'\fter you type in Listing 1 and save 
it, experiment by changing the values 



of the variables. Perhaps use a different 
wavefonn in line 1 10 or different levels 
of aitack, decay, and stieh. You can also 
add one or two more voices lo the siren 
by using the apprtipriate addresses to 
set up the sound registers in Voice 2 
andtor Voice 3. 

The C-128 Sound Command 

The three little siren programs (List- 
ings 7, 8 and 9) lake advantage of the 
C-128's powerful Sound command, 
which tan do in a line or two what 
requires a whole program on the C-64. 

Listing 7. C-ISB siren program *1, 

10 REM SIREN {CI 28) #1 : REM* 3 5 
20 SOOND 1,15000,100,0,5000,100 

,2 : REM* 3 5 

30 SOUND 1,15000,100,1,5000,100 

,2 :REM*11 

Listing 8. C-IZB siren program #2. 

10 REM SIREN (CI 28) #2 :REM*85 
20 SOUND 1,13000,135,0,4000,100 

,2 : REM* 71 

30 SOUND 2,18000,135,0,4000,100 

,2 :REM*187 

40 SOUND 1,18000,135,1,4000,100 

,2 :REM*161 

50 SOUND 2,18300,135,1,4300,100 

,2 :REM*208 



Listing 8. C-1Efl airan program #3. 

10 REM SIREN (CI 28) #3 :HEM*71 

20 SOUND 1,18000,135,0,4000,100 

,2 : REM* 71 

30 SOUND 3,20000,235,2,10000,80 

0<1 :REM*247 

40 SOUND 1,18000,175,1,400,100, 

1 :REM*60 



The Sf.iund command has the fol- 
lowing parameters: voice, frequency, du- 
ration, step direction, minimum .sweep I 



Ttbio 4. Paromaters of C-1SB Sound Bommand. 



Voice 

Frequency 

Duration 

Direction 



Minimum sweep 

frequency 
Sweep value 

Waveform 
Pulse width 



1-3 

0-65535 

0-32767 

0-2, (the default)— sweeps the frequency upivard as the 

sound continues; 1— sweeps the frequency lower as the 

sound continues; 2— osrillaies 
Directs SID not to sweep below this value (default.O.) 

Amount to sweep by; means not to sw^eep at all, but 

play a slcadj' frequency 
0-3, 0— Triangle; 1— Sawtooth: 2— Pulse; 3— Noise 
0-4095 (For the Pulse waveform oidy) 
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Rll[V Works: A Oiie-Dlsk 
Software System for 
Everything ComoTodore 64 and 
128 Users Need 



1. RUN PAINT Fiill-Fejihire 
Pdlitl and Oranlii^ Program 

2. MONKY MANAGKK tor 
Business and Home 

3. L4BEL BASE 
Creiite Address Labels 

4. RUN TERM 
l^lecomtnunlcator 

5. RUN SHELL Disk I tlltly 

6. GRAPHMAKER 
3-D liar Graphs 

7. FORM WRITER 
Forms Design 



Spend a little and get the works... 

RUN Works. 



As a home-bbsed 
busines5ov\/ner, I save 
time, and money wiih 
LAdEL BASB'6 fa^te^y 
address Idbding sysfem 
And I realty dppreda-hc 
FOHMWHITBR'S form creaHon ^<^ 
program when I think of ihc 
money I 'd spend creating and 
printing forms professionall/. 



When I crea+'e 
a proposal for work, 
OHAPHMAKBH'5 3'D 
&ar Graphs rcaHyheSpy 
me make rnypoin'h 



'Jiiiu- 



/ think RUNPAINT 
is aivesome 'cause / can 
dr&w on the screen Just 
by movina fhe poin-fsr 
with my joystick or 
mouse. If's easy! 



Tht lAON^Y MAN AOEK 
rea/Zy /efs our family 
plan our finances 
3nd save! 



<^i 



le 



:|L- 



-^^'^^^ 



j%^ 



&^..' 



RUNPAiNT lets 
rne design and print 
my own unique creations. 
Even though I'm notan 
arh'st, RUt4 PAINT makes 
me look l/keone/ 



InlnHlucing RUN 

Works. . .a {icmiplcto se- 
lection of all llie soft- 
ware programs you'll 
ever need. 

On just one disk! 

RUN Works Is easy lo 
use, flul It works tiard 
so you (ion 'I iiave to. 
Which means you're 
more productive and 
efficient. 



And you cini Imy RUN 
WorivS at a fraetion of 
the iirlce you'd pay for 
c(nnparal)le ()r()f>ranis— 
up to Sat) each else- 
wtiere. 

Wtial's more. RVX 
Works and its fully 
iiinsti'aled docunieniation 
booklet are only avail- 
able ihrou^ii litis special 
offer. 



So Older today. I'licre's 
no risk. ktJM Works is 
i ()()•!() Money Hack 
(Juai'ajiteed for Ifiirly 
days. 

Cail 1-800-343-0728 

Or send l)aek ttie coujion 
or order card Kidav. 




VES! i want !o spend just a little 
find fipt the software works for my 
Commodore 64 or 128. Hease nisli 
me all Steven KLl^ Works (jro^rain.s 
on lust one easy-to-use disk. 

I'll [)aj oiil) S24.97! 

n Check is eticloscd D MasterCard 
D .'Nmerican Express □ Visa 



NAME 



XDDRt^S 



an sTAiK 7JP 

Rwi^ Ainriail, please add S3.95 per wdcr. 
Mall this itmpon tit liie postage-paid card to; 
lUG Coinmunlcattons.'Merboroiigti 

PO Bo\ 802. a'tiTlwragh. NH 03458 
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trcqucncv, swlv]) stup viiliit-. wavefonn 
and pulse width. 

The possiblf valut-'S for ihc various 
parameters are listed in Table 4, 

Examining tlie values I used in the 
C-128 sirens should give you agood idea 
how these values work. 

BACK TO Nature 

I'he Cli'l [Jiograni in Listing 10 sim- 
ulates the sound ol a cricket. To tran.s- 
form the cricket into ii frog, make the 
changes indicated below the listing. 

Listing 10. Cricket program (C-64]. 

10 REM CRICKET (C54) :REM*191 
20 30=54272 :REM*19 

30 GOSUB 230:REM RESET SID 

:REM*203 

40 POKE SD+24,15:REM FULL VOLUH 

E :REM*115 

50 : :REM*108 

60 GOSUB n0:REM M/iKE SOUND 

: REM* 108 
70 DT=20:GOSUB 200:REH DELAY 

: REM* 30 
80 GOSUB 110:REM SOUND AGAIN 

:REM*52 
90 DT=1000:GOSUB 200:RUN :REM*24 
00 : :REM*158 

10 REM ONE "CRICK" SOUND 

:REM*95 
2 FOR X=1 TO 2 :REM*235 
30 POKE SD+1,254iREM FREQUENCY 

:REM*13S 

40 POKE SD+4,16:REH TRIANGLE W 

AVEFORM :REM*243 

50 POKE SD + 4,PEEK(SD4-4) OR 1:H 

EM START SOUND : REM* 6 5 

60 DT=50:GOSUB 200:HEM DELAY 

:REM*1R'! 
70 POKE SD+4,PEEK(SD+4) AND 25 
4: REM RELEASE : REM* 62 
80 NEXT: RETURN :REM*87 

90 : :REM*248 

200 REM DELAY ROUTINE .-REM* 156 
210 FOR DE=1 TO DT: NEXT: RETURN 

:REM*225 

220 : ;REM*23 

230 REM RESET ROUTINE : REM* 208 

240 FOR X=0 TO 23: POKE SD+X,0:N 

EXT: RETURN :REM*201 

For a frog sound: 

Change line 130 to read: POKE SD 

+ L 20 
Add line 135: POKE SD, X*2 
Change line Kit) tti read: DT = 30 : 

GOSUB 200 

For a change of scene, listen to the 
surf stnnul geticrated by ihe [program 
in Listing I 1 . 

Listing 11. Sound of surf program [6-64]. 



10 REM SURF 64 
20 SD=54272 



: HEH+ 1 4 7 
:REM*19 



30 GOSUB 170:REM RESET SID 

:REM*1 9 3 
40 POKE SD+24,15:REM VOLUME 

:REM*142 
50 POKE SD+0,0:REM FREQ LOW 

:REM+252 
60 POKE SD+1,200:REM FREQ HIGH 

:REM+1 7 6 

70 A=10:REM ATTACK=10 : REM* 187 

80 D=12:REM DECAY=12 :REM*1B8 

90 POKE SD+5, (A*16)+D:REM SET A 

TTACK/DECAY : REM* 70 

100 POKE SD+4,12S:REH SET NOISE 

WAVEFORM :REM*90 

110 POKE SD+4,PEEK(SD+4) OR 1:R 

EM START :REM*1 30 

120 REM WAIT FOR SOUND TO FINIS 

U :REM*88 

130 FOR DELAY=1 TO 2000: NEXT DE 

LAY :REM*193 

140 GOTO 50:REM REPEAT :REM*176 

150 END : REM* 2 3 

160 : :REM*218 

170 REM RESET SID :REM»52 

180 FOR X=1 TO 23: POKE SD+X,0:N 

EXT: RETURN : REM* 17 

Then, to have Fourth of July ;ii ilie 
beach, turn the waves into ex[)lc)sions 
by changing the .Attack variable, A. in 
line 70 to .'i For a more rapid, niachine- 
gunlike effect, shorten the delay loop 
in line 1 30. 

Faster SID Reset 

Listing 12 is a faster tiiachine lair 
guage program that resets all tlie SID 
registers except the V'ulunu- register. 
Yoti should fit St run llie program to 
poke the machine code imo niemorv. 
I'hen, tall the SID resetter with SYS 850 
on a CB4 or with BANK Ix SYS 28 IG 
on a C-128. 

Listing 12. SID registor reset program. 

10 X =850: REM FOR C64 : REM* 182 
20 IF FRE(0) <>(FRE(1 ) THEN X=2B 

16:BANK 1 5 : REM FOR CI 28 

:REM*183 
30 FOR J=X TO X+13:READ A: POKE 

J,A:NEXT ;REM*25 

40 DATA 162,23,16 9,0,1 57 :REM*84 
50 DATA 0,212,202,208,250 

:REM*30 
50 DATA 141,0,212,96 :REM*4 6 



Sound good? I liope so. And I hope 
ytni gel a bang run of concocting com- 
puter sounds for yotir own prfigrams 
and tiTing them on your friends! ■ 

Bruce Jaeger has had scores of programs, 
articles and reviews published in mtiny mcf^- 
azines. indtidiiig RUN. He also ptap liliie- 
grass fiddle with tlie Middle Spiiiiii Creek 
/foyj in his native MinneMita. 



NEW! 

A SUPERCONTROLLER 
MULTIFUNCTION CHIPI 



THE 




• DC DIMMER 
' AC DIMMER 

• 16 CHANNEL CONTROLLER 

• 64 CHANNEL MATRIX 

• PULSE COUNTER 

• SERIAL IN / 16 CH OUT 

• 4 CHASING ROUTINES 

• SERIAL ENCODER 

• SERIAL DECODER 

Ifi addition, the ZR2 provides: 

3 OPEHATION MODES- 

AUTO/SYNC/MANUAL; 

VARIABLE SPEEDS; 
100% SOFTWARE COMPATIBLE; 
REQUIRES ONLY -SV AND 
SINGLE CRYSTAL 
INTERFACES TO THE 54 S 128! 
THE 2R2 REPLACES MULTIPLE 
AND COSTLY DISCRETE PARTS. 

IDEAL FOR ROBOTICS, LIGHT AND 
MOTOR CONTROL, MULTIMEDIA. 
DATA TRANSFER, AND MORE. 

THE ZR2 IS TRULY A TOOL FOR 
THE TECHNICAL IMAGINATION! 

ONLY S34.95 
NOW" NEW LOW PRICE! 
THE ZR2 IS NOW $29.95! 
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It's All Relative 

If you're zmiting CI 28 programs, you 'II want the speed 
arid ease ofwie relative files can offer. 



By ROB KENNEDY 




:iny owners of C-64.s have 
j>rob;ibly tried using rela- 
tive files, only to give up 
wlien they couldn't figure 
out the manual. Now, with the C-128, 
the problems are dissolved. Basic 7,0 
includes many new commands that 
make relative files just as easy to use as 
sequeniial files, if not easier. 

If you're new to computers or have 
never used files in programming, and 
you're wondering what relative files arc, 
they arc one of three main file types, 
the other two heing sequential and pro- 
gram. A major distinguishing charac- 
teristic of both program and sequential 
files is that they are read from begin- 
ning lo end. For example, let's say you 
had 100 addresses in a se(]uential file 
and you watited to extract the iiiftu- 
mation in address number 48. You'd 
have to read files 1 -47 first, which could 
prove very slow. Reliitive files, on the 
other hand, can be read in any order, 
so they're a lot easier and faster to ma- 
ni])ulate. If you want address 48, you 
just set [he pointer to that locatitm and 
get your information; you do not first 
have to read through files 1-47. 

Creating Relative Files 

Relative files arc created on the 
C- 1 28 widi the DOpen cotnmand. Mere's 
the format for the command, with brack- 
ets enclosing the descriptions of the pa- 
raineter values you must supply; 

DOPEN#[logical file numberl,"filenamc", 
L[ record iength].D[clrivc number), 
U{dcvicc number] 

The logical file number ranges from 
1 to 2.'ir). The record length is the num- 
ber of characters you want in each rec- 
ord, with a maximum of 254. The drive 
number is or 1 (this is optional; you 
onlv need to insert a value if you have 
a dual drive), and the device number 
(also opiiotial) is usually 8. 

To create a sample lelativc file that 




we'll call REL FILE, put a formatted 
disk into the drive and type the follow- 
ing line; 

DOPEN #1. "REL FILE",L30 

Each record in REL EILE will be 30 
characters long, but you d<m't have to 
use tlvem all.The computer will just pad 
out die unused space with null charac- 
ters. Note that whenever you're reading 
from or writing to a relative file, you 
must use the same logical file nuinlier 
as when you created it. Also, you should 
view the directory to note the length. 

When writing to a relative file for the 
first time, you'll get a Record Not Pres- 
ent error, because the record pointer is 
set at a record that hasn't yet been writ- 
ten to. To prevent this problem, deter- 
mine how many records you want to 
store, add one and then write some- 
thing to the extra record. Let's say you 
want a file holding the names of the 50 
states and their capitals; you'd need 100 
records. That means you'd write a 



"dummy" message at record 101. 

Now type in DCLOSE on a separate 
line to close your file. 

Next, type in the following program, 
noting that you don't have to specify 
the length of the file, because you did 
that when you created it: 

5 REM ***PROGRAM ONE*** 

1(1 nopt;N(S(i."Ri:i, file" 
'JO KEc:oRn# 1,101.1 

HO PRlN'f#l,"KILE END" 
40 PRINTDSS 
50 DCLOSE 

Now, nin the program. Line 10 opetis 
the file you created earlier, line 20 sets 
the record pointer (more on that later), 
and line :iO writes l'"ILK END, the dum- 
my message, to record number 101, 
Then line 40 displays the status of the 
disk error channel, and line 50 closes 
the file. It's always a good idea to display 
the disk error channel after reading 
from or writing to a relative file. Also, if 
you look at your directory, you'll notice 
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THERE ARE SOME THINGS 

OU JUST CANT DO 




WITH GEOS . . . 

.UNTIL NOW, THAT IS. 



Introducing GEOS Power 
Pak*, a collection of the most 
useful GEOS desktop accesso- 
ries, utilities and applications 
ever assembled on one disk. 

The editors of RUN maga- 
zine have packed this two- 
sided disk with over a half- 
dozen useful programs, a wide 
variety of fonts and over a 
hundred illustrations to use 
with GEOS. It features the 
work of some of the BEST tal- 
ent in the GEOS market, in- 
cluding telecommunications 
expert Bill Coleman; font de- 
signers and artists Susan 
Lamb, Tom Trevorrow and 
Shaun Jones; and GEOS pro- 
grammers Joe Buckley and 
Wayne Dempsey. This assures 
you, the GEOS user, of in- 
creased productivity and ease 
of use each and every time 
you boot up GEOS. 

Discover how it feels to be a 
GEOS power user with the 
GEOS Power Pak. This disk 
will give you features unavail- 
able anywhere else. 

R)r example: 

AI'I'LICATIONS 

— (JeoTerin is tJia first terminal program 
for GEOS. Before the GEOS Power Pak, 
thi.s application had the cxpens stumped. 
But now you can telecommunicate to 
BBSs and online networks, sending and 
rcccrivinj! mes.siiges, attending confer- 



"TIw editors of RUN have 
assembled the best talent in 
the GEOS community for 
this dislc!" 



ences and iijiloading and downloading 
programs. 

— Card File is a file manager that comes 
in handy lo maintain lists. Use it as an ad- 
dross IwKik iir t<i keup lists of tapes, rec- 
ords or hiiawhold items . . . the 
[>(>ssibilities art' endless. 

FONTS 

—Choose from a wide selection of charac- 
ter fonts and point sizes. All the fonts are 
tiriginal ami unpublished. Suitable for let- 
ter writing, headlines or to spruce up any 
iiewsli'tier, memo or sign. 

CLIP AKr 

— l'ic:k fr<»m over one hundred illustra- 
tions to use in your own documents. 

ACCESSORIES 

—Thumbnail is a unique program that re- 
duces full- page geoPaint images for dis- 
play on the screen and to save to disk. 
Catalog your geoi^dnl collection or pa.stc 
images iiuo a geoWrite tiocument. 
—j{eo Organizer is a disk utility that lets 
you rearrange your GEOS files quickly 
and easily, 

— Pattern Editor IcLs you create your 
own fill pattern.s for iLse within geoPaint. 
— geoBreak. Ervjoy this classic arcade 
gfuu<>. 

— C<iiivert 2.2. Convert GEOS data and 
programs for uploading and downloading 
with (JooTerm, 

— Write Hand Man, Word and document 
analyzer. 

— AutoView. geol'aint slide show maker. 
— i*aintView II. View geoPaint pages. 



Like the original GEOS pro- 
gram, the GEOS Power Pak 
greatly enhances the capabili- 
ties of your C-64. 

Let's face it. You've in- 
vested lots of time and energy 
learning to use GEOS. The 
GEOS Power Pak returns this 
investment tenfold with easy 
applications, expanded capa- 
bilities and increased produc- 
tivity. 

GEOS Power Pak revolu- 
tionizes the program that rev- 
olutionized your C-64. 



'GEOS Powpr l*iik in ;i |,rrKlu(rl yf RU^' miiKazim? and 
i-s i\it[ i^mm-i'U'ii wlUi Itivkck'y Soflworks. rrcaror of 
GEOS, or (.'tHiiiEHMlon^ tniinLifndurrr of Uw C-04. 



I ■ ^w» 1 vvtmt to .i(id more coiufjuiiiig 
jMiwiT Id my Commotlore 64. Send mc thp 
[ GGc;)S J'OWEK PAK from /SKV niagaidno for 
I S24.D7. 

I n Chi-ck erioioM'd n American Express 



Card*. 



exp. Oote . 



Nam<! 



I 

I 

I Addrcsa . 

I City 

I Stati: 



.Kill. 



Htrc-^tii AIniirul, |h1t'iv«'.'uji:| t!t,S>ri |ii.-r 4jnk'r. 



I 

I Mail to: RoRUN 80 Elm St. 

' Peterborough, NH 03458 

I or call loll free 1-800-343-0728 

I GPRSS I 
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ih;)i ttif nic is much longer than before. 
riiis is llif iti;iximuni lenglh. 

Writing to Rkl,\tive Files 

To write U> ;i relative lilt, you luivc 
to n])cn the file, set the record pointer 
and print to that record. Then, after 
you've printed the infornuition. yon 
shouki display the di.sli error channel 
and close the lile. 

llasic 7.0 provides several new com- 
mands for writing to relative flics. One 
h the Record conrniand, which sets the 
record pointer. Here's the format: 

RIiCORD#(logical file number].[ record 
iiuml>er].IU)le] 

The logical file otnnher is ttic satnc 
as the flic iitnnher you opened with the 
DOpcn lonnnand, which in turn is the 
satne as tire file nnioberyou used when 
creating the file. The recortl nuniher 
designates the record in which you want 
to store information. If this were your 
first entry, ytni'd use record tuiniher 1; 
if it were the Soth state, you'd use ictcntl 
nutnher ■!'.) (rcineniher, 2-! states and 
ca]iiials hefdtehand). The hvte ojition 
tells where in the record you want (o 
write (more about that later). 

Xow. let's write a little progratn fur 
iii[)utting the 50 states and capitals and 
then writing them into a relative file. 
Start withi 

ry REM **-!>RO(iRAM TWO*** 
1(( DOI'KN#l."RFX KILE" 

This line will open the file yon cre- 
ated cnrlier. The longe.st state name is 
Sotith Carolina, with 14 characters (in- 
cluding the sjjace), and the longest cap- 
ital name is Oklahoma C;ity. also with 
M characters. Ntninally, a record length 
would piohahly he alxnit \5. hut you'll 
neetl an extra 1 '■> characters later on. so 
we'll kcL-]) the record length at 30. Be 
sure to set a sufficient record length 
wlietiever you're creating a file, because 
any data tliat doesn't fit will he lost. 

Now add the fttllowing lines to your 
growing program: 

20 F()RT=lTOiri()S'rEP2 

25 [*N = l'Ni-I 

■M) !'R1NT".STATE NL)MBER";PN 

■to I.\l'UT"WH.-\T I.S THE N.JiME":STS 

m !>R1N r"CAl'IT.'\L NUMBER";PN 

(Ml INPUT" WHAT LS THE NAME";C:A$ 

Line 20 starts a loop that will he exe- 
eutetl .")0 times, lines 30 and 50 display 
which stale and capital arc about to he 
entered, and lines 40 and GO get the next 
State and capital. The state is stored in 
string variable STS. the capital in C.\S. 

Continuing on, type in these foiu' 
Sines: 



"tt RECORD* I.T.I 
H(l PR!NT#l.SrS 
90 REt;ORl)#l,T-(-l,f 
mil PRINTS 1, CAS 

fhe record pointer is .set in lines 70 
and 90, line 80 writes the state to that 
record and line 90 writes the capital 
to the next record. PRINT# is the com- 
mand that does the actual writing. 
Here's its format; 

PRl.S r#lflk- ini!iibfr).[pnm list] 

■fhe file number is the same as the 
file ninnher opened by die DOpcn com- 
mand, [lie print list is what you want 
primed lo the record, and it can he a 
string, a variable or a message in tjuotes. 
In our example, we're using a string. 
The next lines to enter arc: 

11(1 pRtxrrxss 

ll!(l NEXir 
Kid DCLOSE 
140 ENU 

Line 1 10 prints the disk error chan- 
nel, ill keeping with the rule always to 
check the channel status. Line 120 is 
the end of the loop, and when it's been 
executed aO times, the file will be closed 
by line ISO. 

When you write to a relative file, a 
set lion of its contents will look some- 
thing like the first example in Figure 1. 
fhe sanu- inforiTiation sKued in a se 
t|iieiuial file would look like ihesec(Hid 
exam|>le in the figure. In both cases, 
I've used Os to represent null characters 
and %s to represent boundaries be- 
tween records. 

'fhese examples show why a relative 
file is faster. In a sequential file, the 
ret ords do tiot all have the sanu- length. 
so the ic)m)niter has no way to find a 
particular record except by reatiing 



Figura 1. Samples of fila contents. 



through iheni all. With a relative file, 
every record is the same length, so the 
ctnnputer has reference [)oints for find- 
ing particular oiies. 

Reading Relative Files 

Now that you've written your infor- 
mal ion to a file, you want to get that 
inf'ortuation back. To do this, use almost 
the same piograiu as for writing, fhe 
difference is an INPLIT* commaiul, 
which reads from a record instead of 
writing to it. Here's the format for the 
INPUr# command: 

IN PUT* [file number],[variable list] 

The paratneters are the same as for 
the PRINT* connnand. 

.N'ow, save your program, type in 
NKW and then enter die following lines; 

.■> REM ***PR0GRAM THREE"* 

10 DO 

20 INPUT'WHICH RECORD DO YOU 

WANT L0A[3ED";RN 
;!() n-RN<ltJRRN>!J!IORINT(RN/2)*2 = 

RNrHKN20 
-Kl I)OPEN)»I."RELEILK" 
.'-.(l R!;t;()RD#l,R.\M 
(■>(.! INPUr#LSTS 
70 RECORD#l.RN+ 1,1 
8(1 l\PUl#l,CAS 
'.id !'RlNfl>SS 
lOd DCLOSE 
Mil PRINT-THE CAPMAL OP "; 

S'fS;" IS ";C:AS;"." 
1 2d INPU'l-MORE{Y/N)":A$ 
Lid [PAS<>"N"THENLOOP 
1411 EM) 

Line 10 sets up a loop, and line 20 
asks which record you want, fo make 
your selection, lype an odd number 
from 1 Ui 99 — odd because states are 
onlv in odd-numbered records. Line 31) 



Sample 1, Relative file: 

ALABAMAOOOOCMOO%MONTGOHE:RY(X)000?AI.ASKAOOOOOOOOO 
Record* 1 2 3 



Sample 2, Sequential file: 

ALABAMA%MONTGOHERY%ALASKA 
Record* 1 2 3 



Sample 3. Relative file with records divided Into fields: 

ALABAMAOOOOCWOOMOSTGOMERYOtXIOOSALASKAOOOOOOOOOJUHEAUOOOOOOOOO 
Field* 1 2 " 1 2 —- 

Record* 1 3 ~ — 
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determines whether the value of RN is 

If^al. If ytiur typed value of RX is less 
than I, greiuer than 99 fir an even num- 
ber, you'll be asked again. 

Line ■!() opens the file, lines 50 and 
70 set the record pointers, ^nd lines 60 
and 80 get ihe information. Then line 
90 displays the disk error channel, and 
line 100 closes the file, finally, yotu' 
informntion is displayed and you're 
asked il' you want to gel more. If so, 
execniion liiops hack to the beginning; 
if not, the prograiu ends. 

Files, Records and Fields 

So far, you've learned about files and 
records. Now [o learu about fields. 
There are no special commands needed 
to mauipulaic fields; they're just other 
divisions within records, which you 
make yourself Because your record 
length was set at 30 characters, you can 
store both a state and its capital in one 
record by making each field Iri char- 
acters long. When writing to your states 
file, add the ca])ilal to each state string, 
starting at character position 10 by us- 



ing the Byte option in the Record cotu- 
mand. fhe Record comtnand lets you 
lead from (jr write to a certain position 
in each rectird. 

If y<ni want to sec this done, type in 
the following program, which will re- 
write your file: 

.^ REM ***]'RQGRAM FOUR*** 

10 i)oi'!-;n#i,"rki. nur 

20 l-ORI =riC>IOOSTKI»a 

:io Ki-:(:()Ui)#i,'i> i 
■10 iNi't:i#l.(:AS 

50 RKCORn#l,T,l6 
60 PRINT#LCA$ 
70 l'RlN'rn.SS 
80 NF.XTT 
90 DCLOSE 
100 END 

Then execute the program and. when 
it's finished, load a copy of the third 
program ai>ove, which reads a file, and 
make this change; 

70RECORD#1,RN.1(> 



the state, but at a different character 
location — 16. As a result, your relative 
file will look like the tliirtl example in 
figure I. 

Notice that in this example I skipped 
over rec(Htl #2. This is because, al- 
though the capital is still stored in that 
record, you aren't using it anymore. If 
you'd sei up fields in the first place, 
there'd he no unused records. 

To rend ibis information, read the 
record nor!n:illy, When ihe first string 
(the state) is foiuul, the [program will 
continue ti> line 70, w-hcre the record 
pointer is set lo the second field. Line 
80 will then get ihe capital. 

This may seem like a lot of in for. 
maticm to absorb in one sitting, but 
after you read o\'ei' it a few times and 
experiment, you'll see how easy relative 
files actually are. You'll also find that, 
with sinij>le motUncalions, the pro- 
grams I've included here will take care 
of most of vonr relative file needs. ■ 



Now line 70 sets the record pointer Roh Kmnidy « a frrdatuT /mtgmmmi'r 

fur (he capital in the same record as punning ti dt-jpi'i; in computer icience. 



Type-in Troubles? 



vol: have typed in a run program and are 

having sotuc problems getting it to nm. After a while, 
you feel like calling for help, but since we're not next 
door, it's expensive to call us. But we can share our 
experiences with you. Having heard from many users 
over the years about their difficulties with typing in 
listings, we've identified a few recurring problertis thai 
plague many people but arc easy to fix. So read on 
and see if your jirohlem is one of these. If so, perha|)s 
the answers will help you find and correct the difficulty. 

• You get an Out of Data in Line xxx message. This 
means that a program line was reading from Data 
statements and reached the end of the data before it 
was done reading. There arc tw-o possible problems. 

One might lie with the line that reads the data, usually 
a For... Next loop. Make sure you have ihc proper 
values for ihc loop, because if the listing has a loop of 
to 130 and you've typed to IGO, you'll get the "Out 
of Data" message. If the loop is correct, then the prob- 
lem lies in the Data statements themselves. One pos- 
sibility is that vou omitted a whole line of data. That's 
easy enough to find and correct. More likely, you may 
have skijiped one or more individual data items or 
typed in a [icriod instead of a ctnuma, which eaii.scs 
two data values to lie read as otre number. (]hcck yotir 
typing carefully against the listing. 

• You get an Illegal Quantity Error in Line x.xx. That 
means that you've read a number from a Data state- 



ment and tried to Poke it inu> a memtn-y address. The 
error occurs because the number is larger than 253 
(the largest value a meiriory address can cotitain), which 
means that somewhere in your Data statements you've 
made an error by typing in a number larger than 255. 
Again, this is easy to check for and correct. Just look 
in your Data Statements for a tunnber larger thati 25,3. 
Vou might have added an extra digit, or perhaps you 
ran two mnnhers together (2;V151) instead of 2:i'l,56). 

• You get a Syntax Error in Line xxx. This tould be 
almost anything. What il tells you is that there is some- 
thing wrong in the indicated line. Usually you've mis- 
spelled a Basic keyword or omitted some required 
character. List the line and examine it carefully. 

• Vou gel ail Error in Data tnessage. lliis occurs in 
programs that add up all the data as read, and, when 
finished, compares that sum with whai it should be if 
all the data were typed in correctly. IE it isn't the same, 
it means an error somewhere in typing the Data state- 
ments. Go back and cheek the data careful Iv, correct 
the inistake(s), save the new version and try again. 

Finally, we urge everyone wlio intends to ty[)e in one 
of our listings to use Ri/A''s Checksum program, which 
is printed in each issue. This nifty little program will 
help you avoid every mistake we mentioned above, 
except that it won't detect the omission of a line, ■ 

— Lou Wallace 
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PARTI 



Excuse the Interruption 

These advanced machine language programming techniques let you take full 
advantage of the excitement intermpts can pnraide. 



Every sixiictli of ;i second, your 
C-(')4 sio])!i wluiiL'Vcr it's doing 
and, uiih no awareiit'ss on your 
jjail, pel forms a series of ini- 
poiKnn lunisekeejjiiijf f^unetions, such as 
scanning (lie kevljoard. blinking ihe cur- 
sor, and uptlaling [he sofuvare clock 
(TI and IIS). 1 lie conipuier does this 
ihrongli an interrii[)t, a jirocess as close 
to true inultilasking as the CM ever gets. 

Bv plaving sonic tricks in inacViine 
language, it is possilile to intercept the 
interrui>l and divert It to tasks other 
than housekeeping, in fact, this is hoiv 
many games and machine language util- 
ities acc()m[)lisli sprite animation, back- 
ground jnnsic, s])lii graphics and icxi 
screens and the siinullatieaus display oi 
more tlian eiglii s])riics. 

Tart 1 of litis article both explains ilie 
hinclion and use of interrupts in the 
C;()'l operating system and tells you how 
to generate and employ them in your 
own programs. I'art ii deals with the use 
and programming of the CIA chips to 
generate inlei rnpts iti your programs. 
Pan ;i explores the use of iiHerrnpis 
originating from the VKMI chip and 
from outside the C-M. 

The accompanying cxaiuplcs and 
programs do lequiresome understand- 
ing of f),M() machine language and an 
assembler or monittn" jirogram, bnl ihc 
listings aie annotated to helj) begin- 
ners. (For moi e exieirsive aid in under- 
slanding machine language progiani- 
ming, consnh Mtidiinf Language for 
Beginner <i ami The Second Book of Machine 
Language, published by COMPUTE! 
Books. I'ln general infoniiiititm on pro- 
gramming, see I be Cnmmodore fyl Pro- 
grammer's Heferenre (hiide, Coiimioilore 
Business Miichiites, Inc. 

The COMPUTER'S Subconscious 

Although a computer can't really 
think (not yet anyway), you mighi find 
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it useful to lonsitler the tMi-l's (j5IO 
microprocessor as analogous to the 
htiman brain, and the rtiiuiing of a 
piogtam as the process ol conscious 
thought. In such a comjiartson. then, 
voii can think of an inleriiL]jt as a sub- 
consrions activity. 

Tor example, when you're walking 
down the street, yoti dtm'i ctmsciously 
think about every step yon take oralxun 
keeping your balance. More likely, 
yoti're thinking about a business prub- 
lem. what to gel ymir wife for her birth- 
dav or where von' re going foi' lunch. If 
you thought ab<nit evet y step you took, 
the chances are thai you'd fall llat on 
your face. It's impossible lo think of two 
ibings at once, sti your brain learned 
early on lo loave (he [process of walking 
to some low-level area of your siibtoti- 
scious, so you don't have to "think" 
about it. 

Interrupts work in a similai manner. 
The C-tWs h<nisckeeping rtmline, oc- 
cttrritig ()0 limes a second, essentially 
diverts the (>r)IO microjjKicessoi from 
vvhatever it's tloiiig. preserves the cur- 
rent contents of the registers and ac- 
cinnulator, performs its tasks, and then 
lets the program resume ojieralion. 

iNTERRurr Hardware Anatomy 

It is the hardware cotn[)onen[ cif the 
compnier ibat generates iineimpts, not 
the software, which involves the o])er- 
atingsvstem and programs in RON! and 
RAM. The fi.'ilO microprocesstn has two 
sources of interrupts: the InteiTU|)t Re- 
quest (IRQ) line, and the N<m-Maskable 
Intcrrii]>t (NMl) line. Both can receive 
inieiru])ls from onlside the C'-(M 
thnnigh the eX[}ansi<m p<n'l. Inletnally, 
the two Cimiplex Inlerface .Adaptei 
(CIA) chips and live Video Inlerface 
Controller (VICMl) (hip also generate 
interrupts. (See Figure 1), 

The IRQ and NMl lines of the mW 

RCX it right: C-64 



system by means of one of ils bti ill- 
timers. N.VII inierrupis origi 



are nortnally high. Thai is, ihey havd i 
+ SV signal on them when ihey'rc 
active. In Figure I. notice the scjuigfj ,■ 
lities with the words "I'nllup Resislo; 
next to them on both inlcrriipt lin< . 
fhcse tiiitii-circuits maintain the + 3 
signal. When anv stmrce drops to OV, i 
voltage dro]j occurs across the [lulltl > 
resistor, and ihe voltage on ihe hue ■ 
rtipl line also drops lo l)V, gcneratir ( 
an interrupt. This process is called i i 
interrupt request. 

IRQ inleiTupts come from the \TC' I 
chip, Ct.^ 1 or pin 4 of the expansic i 
port. Cl.A i is respnnsiljlc for genera ■ 
ing the IRQ request that occurs evc( 
sixlieth of ;t second in ibeb ('s<ipeialiii , 

ils btiili-ij 
nale in llj 
C.IA y, the restore key <n' pin D of ill 
expansion port. 

There are two parts to an intet"ni[> 
The first is the microprocessor or hart 
waie pan. occurring within ihe har< 
wired prtigramming of the fi.TKI CI'l 
Ihe second portion is the software roil 
title that determines the source of thl 
imerriipt and then performs whatevc 
task has been requested. 

.-Mthough interrupt requests may oi 
cur on either the IRQ or N'MI lines, ih 
(r'lll) handles them differently. I'ignri 
'2 shows a simplified Howchart of ibi 
se(]uence of events thai ixcins in ihl 
tM)4 in response lo an IRQ or NNfi^ 
interrupt request. | 

The IRQ Request 

Whichever line can ies the leqiiesl, 
the GSIO finishes the operation it's cur- 
renlly working (ni beibie aiktiowlcdg- 
ing the in!errii|>l. When it deieiis ;in 
IRQ inlcriupl icquesl, the t).">l<) lilst 
checks the interrupt disable status bit 
("I" bit) of the procossoi status register 
(F). By setting this bit lo I, you can tell 
the microprocessor that you don't want *■ 
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Now, available only to 
RUN'S Special Programming 
Issue readers, RUN is offer- 
ing a collection of top-qual- 
ity programs for the low, low 
price of $7.95. 

In all, three exciting ar- 
cade games, a sound utility 
for both the 64 and 128, 
some useful sprite utilities 
and a fascinating sign lan- 
guage tutorial. 

Every major program in 
this issue is contained on 
this disk. For those of you 
who do not wish to type in 
program listings from this 
issue, this disk is a must. 
For those of you who are 
looking for some useful pro- 
grams, this disk is a valu- 
able addition to your 
software library. No hassle, 
no tedious hours of typing. 
Just load the disk and 
you're ready to go. 
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sinj' IRQ calls lo occur now. The reasons 
you wouUin'i want tliis to hn]jjx-n will 
be covered a little later, [f you've sc) the 
|}it lo 1, the fi5l() abori.s the inturrufjt 
andfxctiites the next instintction iti ilu- 
progtani. 

You set the 1 flyg by using ihe see 
interrupt-disable siatas (SF.l) opcode 



(S7H) and reset it with t!ie clear inter- 
ruj)t<iisahle status (CLl) opcode (S.'iK). 
ir ilie I (lag is 0, then the interiufjt 
sefjiieiice hej^ins. The ijrocessfjr stains 
register (P) and prof^rain counter (PC) 
are pushed onto the stack. This will rell 
ihe O.tK) whore in tlie program it left 
off to (leal with the inlernipt. The in- 



riguro 1. IntBrrupt lines and Bourcos In ralatlan to tho GS10 CPU. 



VIC 
B527 ' 



IRQ 



CI A 1 
6536 ' 



IKQ 



CAflTRIDGE 
EXPANSION 
PORT 



IRQ 



NMI 



CI A Z 
65ZB " 



HMI 





Figure 2. Flowchart of sequencoa triggarad by IRO or NMI Intorrupt rsquests. 



RO mief rupt 



NM Interrupt 



IRQ tine 
goes k^w 



— I |— TKJTline 
I — ' goes low 



I Finisti Current Irnlruction ( 




I FWsh Current Imtruetion j 



Place P (Processor Status J 
snd PC (ProgramCounter) 
registers on (he stack 
Set the T bit 

Col address at tFFFE-*FFFF 
(Jump to*FF4e) 
> ■ (* > /fjtGrrt42t ffoi/tjnr • ■ ■ ■ i 
Save A. .X, and ,Y regijters 




1. Place P (Processor Status) 
and PC (Program Counter) 
registers on the stack 

E. Get »daros3 at tFFFA-SFFFB 
(Jump lo »FE43) 

■ n ■ ■ H f/iterri4pt /?outiiff& • ■ ■ ■ ■ 

3 SEI (Set Interrupt Disable) 

4. JtyIP ($03ia): Jump through 
Vector NMINV to SFE-*? 

5. Save .A, X, and V registers 



YES 



1 JMP (t03M): Jump through vector 
CI(Wto»EA31 

2. BHtiK cursor, read KeytKiard, update 
softwe clock 

3. Restore A, .X. w)d .Y registers 
from ttw stack. 



RTt 
Restore P and PC 
registers from the stack 



- ^ NEXT ll^iSTRUCTION] 




, Restore .A,-X, 
from the stack 



and .Y registers 



terttijit-disahle status hit is set to 1 lo 
pieveni furthet IRQ requests from 
occurriiijr. 

Next, the program coutiier is htaded 
with Ihe addless stored at SlT-'l-K-SFKrF 
in lowbyie/highhyle format. In the 
C-6'1 operating sysieiu, this address is 
at the end of the Kern a I ROM and 
points to address Sl'KlH. At this point, 
the hardware ])orli<m of the interrupt 
seijiteiue is fiuislied uiiiil control is re- 
turned to the inteirti|)led |>i<)giam. 

Now the s<iftware tinttiue at SITIS 
takes over, first savitig the contents of 
the .A, .X. aiul .V legisters by pushing 
thetn also oti the stack. The routine next 
examines (he break flag (B) of the P 
register. (Note; even though the con- 
tents of the I' register were piu on the 
Slack, a copy still remaitis in the micro- 
processor.) If the B ilag is set to I, the 
interrupt routine knows it has encoun- 
tered the HRK opcode (which uses the 
s.une [jointer at SKKKK-SKKI'T), and it 
haiiils coniiol over to the BRK routine 
at Sl'Klili. 

If the li Hag is (), then the i est of the 
IRQ routine is executed, with an indi- 
rect JMl' through a veet<rr in R.AM at 
locations SO;i I •1-.S()3 15. 'fbis vector 
points to tile necessary housekeeping 
Munine (at SE.'\;)I}. which is responsible 
for the cursor-blinking and keyboard- 
rcaditig activities. Because this vector is 
in R.'VM. y<ni can use it to divert toiitfoi 
to your ovvir IRQ routine. I'll discuss 
this techni(]ue shoitly. 

Before the interrupted ptogratii re- 
gains control, the ..-k, .X, and .V registers 
arc retrieved, unchanged, from the 
stack. The returti-frotu-interrupt (Rll) 
opcode signals the end of the inlerntpt 
routine and sends coutiol back to the 
((510 routtiu-. Like the reiui iiliomsub- 
routine (R'fS) iiislftiction, the PC is 
loaded with the letui ii address that was 
saved on the stack. Unlike an RTS, how- 
ever, the P register is aiso ptillcd off the 
stack. 

In essence, the microprocessor is 
compleiely restored to ibe stale it was 
in before the iniei rtipt. file only evi- 
deiKC ihe [>iogiain li.is that soinetbing 
hap])ene{l is that a few' memory loca- 
tions may have changed and the key- 
board buffer tnighi contain another 
value. The IRQ letjuest is almost like a 
[um[>-lo-Stil)t<)Utitie (]SR) coimnand, 
exce])t that an IRQ is called by hard- 
ware, not software, it always goes to the 
same place, an<l the conlenls of the P 
register are also preserved. 

TlIK NMI RKQUEST 

An NMI retjtiest is handled slightly 
differenily. As its tiame (Non-Maskable 
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Interrupt) ivnplics, an NMl request may 
occur whether or tiot the I (lag is set. 
Ytiu migiii coitiparc this to putting a 
plione tall on liold in order to iniswer 
the otlicr line. It is possible for an NMI 
to occur while an IRQ or even auother 
NMI is being executed. 

As with the IRQ request, the 6510 
pushes the P and PC rcgistcr.s onto the 
stack, but, unlike the IRQ, it does tiot 
test or set the 1 flag. 'I'heCI'U then looks 
to addresses $l'f''l'"A-$KI'KB for tlie lo- 
cation of the NMI routine, which sturts 
at $FF43. Here, also unlike the IRQ 
routine, it uses the SEI opcode to set 
the I flag to prevent IRQs from occur- 
ring, and the program jumps throujrh 
a RAM vector at s6:^l 8-S»;i 19, pointing 
to SKl'47, Ixfnri' saving the .A, .X, and .Y 
registers. This fact is important to con- 
sider vvhcn you start diverting the NMI 
routine for your own purposes. 

Next, the interrupt routine tries to 
discover the source of the interrupt. It 
looks at the interrupt Cdntrol register 
(ICR) of CIA 2. If it finds the seventh 
hit sei, it diverts control to the RS-2:i2 
inptii/<uaj)ut routine. Here, it checks 
the RS-2;J2 interface to see if it's ready 
to send or receive more data. The NMI 
routine then ends like the IRQ, with the 
,A, .X, and .Y registers restored, and an 
RTI follows. 

If CIA 2 was not the source of the 
interrupt, the routine assumes thai it 
was the restore key. It cheeks locations 
$8004-$80()8 for the Autostart ROM 
Cartridge code (CBM80), and if a car- 
tridge is present, the routine is exited 
through tlie cartridge warm start vector 
at S8002-S80()S. 

If no cartridge is present, the routine 
checks t!ie run-stop key, and, if that key 
has been jnessed, itjuiu])s to the BRK 
routine used by the BRK opcode. So 
pressing the run-stop/restore combina- 
tion has the same effect as the 6.^10 
encountering a BRK opcode. 

If the run-stop key has not been 
pressed, the prograinjmnps to the end of 
the routine, where the microprocessor 
registers are restored, and then to the 
RTI instruction, which, of course, returns 
control to the interrupted program. 

Other Interrupt Uses 

The C-64 operating system also uses 
the IRQ interrupt for cassette tape op- 
eraiitnis by ineatrs of CIA 1. In essence, 
a tape Save or Load command will send 
the IRQ routine to anotlier routine by 
means of the RAM vector discussed ear- 
lier. The CIA chip Timer A is repro- 
grammed from its normal sixticth-of-a- 
second interrupt to work for the tape 
routine. After the operation is com- 



plete, the RAM vector and CIA chip 
revert to their former values. 

I'he lRQinterru[)t is also used during 
the power-up sequence to determine 
whether the American N'lSC or the lui- 



ropean P.'\I, video systetn is in use. This 
is important in determitiing the setting 
of the sistielh-ofa-seeond interrupt 
timer, since each system uses a different 
clock sjieed. The check is done by pro- 



Listing 1. Character-cycling IRQ program. 



SEI 

LDA #<NEMIHQ 
STA S031 4 
LDA /p NEW IRQ 
STA $0315 
CLI 
RTS 
NEW IRQ 

INC $05A4 

JMP $EA31 



Set interrupt: Disable Flag 

Get low-byte of NEWIRQ routine 

Stare in RAM vector 

Get low-byte of IJEWIRQ routine 

Store in RAM VGCtor 

Clear Interrupt Disable Flag 

Done 

Increment character at center of 
screen 

Jump to regular LRQ routine 



Listing Z, Color-changing NIVII program. 

LDA #<NEWNMI ; Set up for New MNI 
STA $031 S 
LDA #>NEWNMI 
STA $0319 

HTS 



NEWNMI 



INC $D0 20 
INC $D0 21 



(2.S 



; Increment Border Color register 
Increment Background Color register 



JMP $FI3;4 7 (f^i^i^Q'J ( Jump to regular NMI routine 
Listing 3. Ball-Animation program 



*= $cooo 



ILOOP 



CLOOP 



SLOOP 



NEW IRQ 



LDA 


#<NEWIRQ 


STA 


$0314 


LDA 


#)NEWIHQ 


STA 


$0315 


CLI 




LDX 


#$10 


LDA 


SP,X 


STA 


$DOOO,X 


DEX 




BPL 


ILOOP 


LDX 


#$07 


LDA 


SC,X 


STA 


$D027,X 


LDA 


#$0B 


STA 


$07F8,X 


DEX 




BPL 


CLOOP 


LDA 


tiO 


STA 


$D017 


STA 


$D01C 


STA 


$D01D 


STA 


$D020 


STA 


$D021 


LDA 


if$FF 


STA 


SD015 


LDX 


#$3F 


LDA 


BALL,X 


STA 


$02C0,X 


DEX 




BPL 


SLOOP 


JSR 


EXP 


RTS 




NOP 




NOP 




NOP 





Start address 

Ball Animation 

Interrupt demo 

Set Interrupt Disable Flag 

Change IRQ RAM \fector 



Clear Interrupt Disable Flag 
Set Sprite Location Registers 

($DO0O-DO1O) set to initial values 

From table SP 



Set Sprite Color Registers 

(SD027-D02E) to values in table SC 

and Sprite Pointers {$07F8-$07FF) 
to sprite block 11 



Initialize other VIC registers 

X-expand 

Multicolor 

Y-expand 

Border Color (Black) 
Background Color (Black) 

Sprite Enable Register 

Put Sprite Data in Block 11 

($02CO-$02FF) 

Data in Table DALL 



(For further expansion) 

(For further expansion) 
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CONT 



LDX HtOF 



Set X to $0F 

Position 



end o£ Sprite 



MLOOP 



TXA 



LSR 




PHP 




TAY 




($D010) 




SEC 




LDA 


#0 


BLOOP 




ROL 




DEY 




BPL 


BLOOP 


TAY 




PLP 




LDA 


SD,X 


BPL 


REGINC 


DEC 


SDOOO.X 


BNE 


NEXT 


BCS 


NEXT 


TYA 




EOR 


SDOIO 


register 




STA 


$D010 


TYA 




AND 


SDOIO 


BEQ 


NEXT 


r,DA 


tiSSB 


position 




STA 


SDOOO,X 


JMP 


NEXT 


REGINC 




INC 


SDOOO,X 


BCS 


NEXT 


BNE 


CHECKX 


TYA 




ORA 


SDOIO 


STA 


SDOIO 


JMP 


NEXT 


CHECKX 




LDA 


SD0O0,X 


CMP 


#S5B 


BNE 


NEXT 


TYA 




AND 


SDOIO 


BEQ 


NEXT 


LDA 


tfO 


STA 


SDOOO.X 


TYA 




EOK 


SDOIO 


STA 


SDOIO 



NEXT 



SP 



SC 



SD 



BALL 



DEX 

BPL MLOOP 
JMP SEA31 



Main loop - save bit 

(0=X value, 1=Y value) 

Put in Carry Flag 

Save Carry Flag 

Set Mask Bit for MSB register 



Store Mask in Y register 

Retrieve Carry Flag (Bit 0) 

Get direction of corresponding 

position register 

If increasing, go to RECINC 

Decrease value of position register 

If > then do next register 

If a Y-position, then do next 

register 

Get MSB register mask 

Toggle appropriate bit of MSB 



Get MSB mask again 

Test appropriate bit of MSB register 
If not set then do next register 
Load A with $5B (91), Put in X 

Register if sprite wraps around 
left side 
Next register 

Increase value of position register 
If a Y position, do next register 
If not check right edge of screen 
Get mask bit 
Set MSB 

Do next register 

Get current X position 

Compare to S5B (91 ) 

If not 91 then do next register 

Get mask 

Test MSB register 

If not at right edge, do 

next register 

Put sprite at left edge 



; Decrement X - point to next position 

; register 

; If not done, do again 

; Go to KERHAL IRQ routine 



EXP 



.BYTE 155 90 205 95 255 130 250 175 

55 210 110 170 105 135 

12 13 14 IS 

128 128 12B 
a 128 

5 128 7 31 
240 31 255 248 63 
15 254 124 15 254 
248 240 255 248 255 

255 248 112 63 124 
15 254 63 15 252 
15 255 48 7 24S 

128 

RTS 



.BYTE 


20S 205 15 


• BYTE 


8 9 10 11 


■ BYTE 


128 128 


. BYTE 


128 12 


.BYTE 


1 25 


.BYTE 


224 12 255 


.BYTE 


15 252 126 


.BYTE 


248 112 63 


.BYTE 


255 248 24 


.BYTE 


15 254 126 


.BYTE 


31 255 248 


.BYTE 


224 1 255 



Initial 
positions 



Sprite colors 

Direction 
O.INC, 128=DEC 

Sprite Data 



j;i;Hiimiii}; the VKMl chi)) lo ^fiiciiitu 
a r:isici'Com]i;iic IRQ if the lasicr 
screen line it nchos :il I , innrt' lines than 
the N rS(; system possesses, If a raster 
hiteiiiipt oteiirs, the timer is jicijusted 
to the PAI. staticiatd. (I'll discuss taster- 
compare intenupis in greater depth In 
Pan -X) 

As meiiiioiieci ix't'ore, the (11 A ami 
Vl(:-1! chi])s are the (Mil's main soutces 
of inlcrnipts. You tan projirani them 
to j;enerate interrupt requests for tliany 
ciHiditioiis, including an alarm fmiC' 
tioii huilt into the (llA chips, the 
presence ol' an outside sij^iial, or the 
switching ufan ojitical transistor in the 
tip of a lijiht pen conneLted to the VIC' 
II chip, 

PROGRAMMING INTERRUPTS 

I'he easiest way lo gel your own in- 
terrupt routine up and running is hy 
diverting to your own routine the RAM 
vectors m $()':U4-S0:U5 lor the IRQ In- 
tel rupt and al S(W18-S0:J1<) for die NMI, 

l.istiti^ 1 is a short (>rogram that uses 
the IRQ iiiierru])t that the CIA chip 
generates, the first instruttion is the 
Stl opcode. This, of course, sets the 1 
flag of the P register to I and prevents 
any IRQ interrupts from occurring. 
.Since yoii're ciianging the R.'\.\l vector, 
an IRQ inleriiipt halfway through 
might nuike the IRQ routine jump into 
litnho and crash. 

Nest, you load the address of the tievv 
IRQ routine into locations S03I'l- 
S03I5 in low.byte, high-byte format. 
Wiien this is finished, [!ie I flag is 
cleared, and the .set-up portion of the 
program is CfJtnjjlete. Knun now cm. the 
RAM vetnu- will direct the IRQ routine 
lo your routine at $C(K)D every sixtieth 
of a second. 

rhc routine N'KWIRQ simply incre- 
ments location S0.")A-1 (which is in the 
middle of the text screen), then jumps 
to die normal IRQ routine at SKA:lI. 

Type in this pnigiam and com])ile it 
if you're using an assemhlei. If you're 
using a machine language monitor, just 
enter the opcodes, ignoring the labels. 
Then enter ,SY.S -iyi.")2. Y'ou should see 
a space in the ceiUer of the screen cy- 
cling through all 250 characters of the 
character set about once every four-and- 
a-t]uaner .seconds. 

Try loading or savitig a program. The 
speed at whith the characters cliangc 
dining these nperatioiis will become 
slow and Irregular. I'll is is because the 
serial bus routines that perform these 
operations will occasionally set the in- 
terrupt disable during critical timing 
sequences. Pressing the run-sio[>(re- 
siore ctimbinaiiun resets the R.'\M vec- 
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tor and stops liit- changing characters 
in the luiddk- of che scrci'ti, 

The pionnini in Listijig 2 is siniiliir 
to that in Listing 1, except it inlciccpts 
the NMI routine RAM vector. Note that 
you don't use tiie SEl and CLI instruc- 
tions, simply hecause they have no ef- 
fect on NMIs. Ihcrc is some small risk 
that llie eomputer will tnish while al- 
tering this vector, hut if no RS-2;i2 de- 
vice is |nesi-ni :iik1 you stay away frutn 
Iheresttne key thei e should he tui ]jrol>- 
lein. The secont! program sits right 
above the first. 

The \EWNMI routine increments 
the border and bnckgroinid color reg- 
isters of the VECMl ehip every lime an 
NMI inierni])t oieurs; then il jiini|)s to 
the normal NMI luutinc. lype In and 
compile the program, and iheii aetivate 
it by typing SYS 401 7L Nothing should 
happen as yet. Now tap on the restore 



key a few times, (Do not hold down the 

rnn-siop key.) The screen will change 
colors with every tap. 

Now try to get bnili new iiuerrupt 
routines running by typing SYS -19152 
again, i'ress the restore key a few times 
to convince yourself that both new rou- 
tines are installed. 

Ihis is basically how you can utilize 
interrupts on theC-04.lt is also f>ossible 
to piu v(un own vettors in memory iit 
Sf'KFA-SlT'Fli and $bTF K.-SriTT- ' by 
switching off the Kernal ROM and writ- 
ing your ovin routines to handle the 
entire interrupt. But you'll probably 
find it much easier to have the Kernal 
ROM around to handle some of the 
customary chores of the interrupt. 

Now WHAT? 

Ry now, you should be getting some 
ideas about ways to use interrupts in 



your own programs. Listings is a shori 
program that animates eigln coloied 
lialls im the screen and has them Hying 
all over. It rmrs on the IRQ inicrrupl, 
mili/ing the sixtieth-ofa-second timer 
generated by CIA I . Look throtigh the 
listing carefully and try to understand 
what is being done and why. The set- 
up pin lion is simil.u' to progratn 1, but 
the NLWIRQ routine constantly affects 
the sprin- loratiott registers, thus cre- 
ating the animation efiecl. 

You activate ilie program by typing 
SYS -19152. Note that even while ihe 
balls are flying aiound, yon can still type 
al the keyboard and even run or list 
nthcr programs. The atiitnaiion is done 
entirely in the barkgrontul, Vou can also 
use ibis lechniqui' In lun I wo programs 
al ihe same time, dealing a multitask- 
ing effect. Such is the power of 
interrupts. E 



PART 2 



The CIA Chip 

There are two CIA chips in the C-64; 
one wired to the G5I0 microprocessor's 
IRQ line and the other to the NMI line. 
As nienlioned in Tart 1, interrupt re- 
quests can be generated through this 
mysterious, yet powerful, chip. 

I'he CIA chip is like a iirinial me com- 
puter that runs alongside t!Teti5I0 CPU. 
Think of the f :IA— or ().')2li, as C;om- 
modore calls it— as a peripheral pro- 
cessing unit (PPU). It doesn't depend 
on the 05 10 for any of its functions, bin 
helps sn[)])c)ri ii. as well as the IM's op- 
erating system. 

Like ihe t).")10, the CIA chip can he 
programmed to a limited exteni to carry 
out specific tasks. Its primary function, 
however, is to handle inpiiUontpui tasks 
and thus hel|) free up the {ir>10. 

Unlike I be f)510, the t;iA cannot read 
or write directly from or to RAM and 
cannot read fifun ROM, Instead, it's pro- 
grammed by reading or writing to its 10 
Internal registers. Tabic I gives a brief 
description uf these registers, which, in 
the C04, are accessed by means ol mem- 
ory locations SDCOO-$DCOF (.")(>320- 
50335) for CIA 1 and $DD00-.$DDOF 
(56,570-.5O591) for CIA 2. 

The CIA chi]) uses the regislers lo 
comniunieate with the (i 1. 'fhrough the 
IRQ line, it can also tell the 0510 when 
one of its five sources of inlerrupts liris 
been activated. 

INTERRUPT SOURCES 

Figure 3 sliows the sources of inter- 
rupts from a CIA chip. Timer A on CIA 



1 is set to give an interrnpl every sixtieth 
of a second for the operating system's 
housekeeping routine. I iiiier li of CL^ 
1 is for serial bus timing. Timers A and 
B of C:iA 2 arc nscd for RS-232 I/O. 

One interrupt source, the lime-of day 
(Tf>F)) dock, isn't used by the C-64's 
operating system. Since the dock is part 
of the hardware, it's far more accurate 
than the .software clock (TI and TIS) 
maintained by the sixtieih-ofasccond 
housekeeping routine, and it's not sub- 
ject to disruption from disk operations. 
Because it's accurate H) one-tenth of a 
setond, in contrast to t!ie software 
clock's one second, the 'TOD clock is 
used for applications that re([inre crit- 
ical timing. 

The serial port, also unused by the 
C-64's operating system, is another 
source of interrupts. It generates an in- 
teri'U])! request after it has received 
eight bits of serial dam or has finished 
sentling eight bits. I hen, it's up to the 
inierrnpi routine to read the data from 
the port's shift-register or load the reg- 
ister with the next cighi bits lo he sent. 

The serial port is accessed at the user 
port ihrmigh lines SP (CIA 1, pin 5; CIA 
2, pin 7) and CNT (CIA 1, pin 4; CIA 
2, pin ()). 

The most powerful scniices of inter- 
rupts are limers A and 11, Fath timer is 
a 1(3 bit c<ninter, capable of ctnmting 
microprocessor clock cycles or external 
pulses on line CNT of the user port. In 
addition, timer B can count the number 
of times that timer A goes lo zero. This 
feature allows the timers to be used 
separately to generate inlerrupts of 



.shori intervals, or logelher for inler- 
rupts with intervals of up to 70 minutes. 

The limers can also operate in Con- 
tinuous or One Shot mode. Either way. 
ini interrupt can be generated every 
time the counter goes to zero. 

In Continuous mode, the timer resets 
itself lo ihe value stored in the timer 
latth register. Here, the timer can he 
comp;ired to an electric clock's snooze 
aliirm ihat wakes you up every five min- 
utes. In One-Shot mode, the timer 
counts lo zero and then stops. 

The Hag line can generate interrupts 
from outside ihc C-OL Because it 
doesn't connect direc:tly to the IRQ or 
N'M! line on the 0510, the fiag is advan- 
tageous in that the interrupt routine 
can determine the siunce of the intcr- 
ru]n, and even turn off its ability to 
generate one. 

C;iA I has its flag line corniected to 
SRQ IN for serial bus operations, f:i,'\ 
2's flag line isn't used by the M, hut is 
available at pin B of tlie user port. 

Getting Interrupts to the 6510 

.'\ll five sources of interrupts can be 
detected by means of the iiuerrupt con- 
trol register (ICR $01)) of the t;iA clii)). 
Toi CI.^ 1, this register is located al 
.SllCOD (5fi:i33), while CIA 2's is located 
al SlH)OU (505H9). The 1C:R also pro- 
vides a means of determining which 
source's interrupts will actually gener- 
ate an interrupt request on either the 
IRQ or NMI line. 

Figure 4 illustraies how the ICR is set 
up. Its function dejjeiuls on whether 
you're reading or writing to it. *• 
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Tabit 1. Complex InterfSEa Adaptor RBglster Map 



DESCRIPTION 



REGISTER 


ADDRESS 


PRA 


$00 


PRB 


$01 


DDRA 


$02 


DDRB 


503 


TA LO 


$04 


TA HI 


$05 


TB LO 


S06 


TB HI 


S07 


TOD lOTHS 


$08 


TOD StX 


$09 


TOD MIN 


$0A 


TOD HR 


$0B 


SDR 


$0C 


ICR 


$0D 


CRA 


SOK 


CRB 


SOF 



Port A: 8-bit bidirectional 

Peripheral Data Register 

Port B: 8 bit bidirectional 

Peripheral Data Register 

Port A: Data Direct iou Register 

Port 15: Data Direction Register 

Timer A; low byte 

Timer A: high byte 

Timer B: low byte 

'Timer B: high byte 

TOD clock: tenth of a second 

TOD clock; seconds 

TOD dock: mintiles 

TOD clock: hours 

Serial Data Port 

Interrupt Control Register 

Control Register A 

Control Register B 



FIgura 3. SourcoB of IntsrruptB fram o CIA chip. 





TOD 
Clock 


— N, 


Alarm 
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Serial 
Port 
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Timer 
A 






TRff 
> or 






5 




Li 


Timer 
B 
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User Port, 










> Fl Afi - 











Figure 4. Tha intarrupt control regiater. 



Interrupt Control Register 



Q Inteicrupt Occurred 7 
■ NO 



Bit 



^ 



Not Used 



128 



^ 



64 



32 



Did Inieiiupt Occur From This Source ? 

1 - YES ; - NO 

FLAO Serial Timer Timer 

Line Port Alarm B A 

fl fl fl n fl 



FLG 

16 



SP 

8 



ALRM 

4 



TB 

2 



TA 
1 



Not Used 



Set Status of Interrupt 
1 • Enable : - Disable 



"u in u r 

t't.AO Serial Alarm Timer Timer 

Line Port B A 

Chang E Status of Interrupt Source? 

1 - VES : - NO 



When you're writing to it, you can 
enable or disable the interrupts from 
each of the five porenlial sources, de- 
pend itig on the setting of bit 7. Yon can 
])rograni any sntnce 1o generate inter- 
rupts, but the microprocessor will never 
see the interrupt requesl unless the 
appropriate bit of ihe ICR is set or 
enabled. 

When bit 7 ei|iials 1 , then an interrupt 
is enabled or set ii' its C(>rres])ondiiig 
bit is set to 1. For exani])le, writing SHI 
(12'.), <;£10000(ml) to the ICR enables 
interrupts from timer A. The status of 
the other four sources remains un- 
changed. In order to disable or clear 
an interrupt, bit 7 niiist be set to 0, atul 
liic correspoiidinj; source's bit set to 1. 
Writing $1F Cil. %0001 1 1 1 1) disables 
all five sources of inteiiiipis. The values 
of bits 5 and ^ have no effect during 
cither operation. 

When reading the \CR, the status of 
all the interrupt sources can be deter- 
mined. Bit 7 is used tc> signal if an In- 
tel rupl has occuned fmtn one of Ihe 
jiossible sfnnces on the (JA chip. 

The C-64 ojieraiing syslem checks bit 
7 during the NMI inienupt timtine to 
see if the interrupt was generated by 
the RS-232 interface (7 equals 1) or the 
restore key (bit 7 equals 0). Because the 
restore key is connected directly to the 
NMI line of the ():")1() microproces.sor, 
its interrupt byjiasses CIA 2 and has no 
affect on the KIR. 

Furtherniote, ihe bit eonesponding 
to the source of the iiucrrupt from the 
CIA chip is also set. Therefore, if the 
interrupt from the TOD clock alarm is 
enabled, and the lime in llie ahtrni reg- 
ister matches it, an iiiierropt request is 
setit to the (i.'iHl :uul ihe K!R registet is 
set to $88 (l:56, % lOOUIDOO). Noie that 
when the IC^R is read, its contents iire 
set to zero, so if there's more than one 
source of an interrupt to check, a copy 
of the register should be saved to RAM. 

Generating Interrupts 

Til now proceed to detail the melhods 
of generating interrupts from the var- 
ious sources mentioned above. 

Time-of-day clock alarm — Getting the 
TOD clock alarm to generate an inter- 
rupt involves setting tip an interrupt 
routine, changing the apfiropiate RAM 
vector and programming the CIA chip. 

The lOI) clock ntcupies registers 
SOH-$OB of the CIA chip. In the lil, 
these are locations SDC()8-SnCl)B 
(50328-56331) for t:iA I, and SDDOH- 
$DDOB (5658'l-r>6:->87) for CIA 2. These 
registers handle tenths of a second, sec- 
onds, tninutes and houis. The hours 
rcgi.iiter also contaitis an amipm flag. 
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Figure ') shows how tht'st registers 
are aria»j;e<l. Hie values are stored as 
binary-toded decimals (BCD). This 
meatis that the first four and Utst four 
hits each represent one di^ii, IVoin zero 
to nine, I'heielbre, a single byte can 
contain a vahic from zero to 99 instead 
of zero to 255. as is the case with or- 
dinary binary. The decrease iu range is 
compensated Cor by facility in reading 
and dis])tayiug program values. 

With some of the registers, <nily part 
of a nibble (ball' a byte, or four bits) is 
used. !n these cases, all necessary values 
for that digit can be represented by the 
space alhivved. 

Reading lire registers returns the cur- 
rent time. The TOD clock has a built- 
in latching fealure that freezes the time 
whenever the hovtrs register is read. 
This prevents the time from "rolling 
over" after only part of it has been read. 
An analogy to this is the lap feature 
found on electronic stopwatclics. When 
you press the l.ip button, the time dis- 
play freezes so you can tell the speed 
of a riunier during [)ari of a race. Mean- 
while, the stopwatch is kee])ing time 
internally. Pressing the button again 
shows elapsed lime. 

The T()D clock registers resimie ex- 
hibiting the correct time after the 
tenthsof a'Second register is read. It's 
imi)ortant to read this register last and 
the hours register first. 

Selling the current and alarm time is 
done by writing to the registers. Once 
again, a latching function is iu effect. 
The clock freezes when the hours reg- 
ister is written to, and starts with the 
new time when the tenthsofa-seconci 
register is written to. Bit 7 of register 
$0F (SDC:()K or SHDOF for CIA 1 or 2) 
tells the C;i.'\ chip if you're enlering the 
current time or the alarm lime. If the 
bit is set to 0, then the clock is set to 
the specified time; if it's set to 1, then 
ihe alarm time is set. 

Listings 4 and 5 take care of all ibese 
tasks w^lieii selling up the CIA I alarm 
using the IRQ interrupt. Listing •[ is in 
machine language. It is responsible for 
changing the RAM vector at 50314- 
S0315, and it also contains the new in- 
terrupt routine. 

The new routine first updates the 
time in die upper-right corner of the 
screen from ihe TOD clock registers 
(lines nriO-l«8()). It then cliecks the 
ICR of CIA 1 (SDCOD) for !)its 7 and 2; 

1(560 LDA SDCOD 
1670 AND #$K4 
1680 CMP #$M 
1(590 BKQ.\L,\RM 
1700J.M1'SF.A3I 



FIgura 5. Th« tiniB of day clock and alarm. 

Titne Of Day Clock and Alarm 

Read: Returns Current Time 
Write: Sets Clock time or Alarm time 

Depending on setting of Bit 7 of CRB 
1 = Alarm: 0= Clock 

rlOtti of seconffn 
pNot llsed-| I di git 

128| 64 I 32 I 16 



TOD 10THS 

$08 Value 
Bit 



8 



7 6 5 4 3 2 1 
Not r Seconds -i i — Seconds 



wox r i>econos -i i — iseconos — 
TOD SEC Used 1 first digit | | second digit 



S09 



VaJue 
Bit 



I 



128164 32 16 



[ 



8 



j4_ 



128 



TOD MIN 

$0A Value 
Bit 

TODHR 

$0B Value 
Bit 



Llatfng 4. TOD clock atarm demo. 



=scooo 

•♦•♦alarm clock*^^^ 
tod clock alarm demo 



76543210 

Not p Minutes -i i — Mtnutes — i 
Used I firs t digit j | second digit | 

128 1 64 32 16 (Ms 4 2 1 



2 



O-AM pNot-i flPst I Hours 

l=Pn I Used I dWIt I second digit 



I 64 I 32 t|_16j|}_8___4__J__l 



NEMIRQ 



SEl 
LDA 
STA 
LDA 
STA 
CLI 
RTS 

BIT 
BMI 
LDA 
BNE 



j!^<NEWIRQ 

$0314 

#> NEW IRQ 

S0315 



SDCOB 

PM 

APFLAG 



PM 



LDA #590 



APFLAG 



STA 

LDA 
AND 
BEQ 

LDA 
BKE 



$0427 

SDCOB 

#$10 

HOURO 

#$B1 

DIH 



iiouno 



LDA #SBO 



DIM 



STA 
LDA 

AND 
OR A 
STA 
LDA 
STA 
LDA 
AMD 



S041D 
SDCOB 

»%0F 

(*SBO 

$041E 

#$BA 

S041F 

$DCOA 

#$70 



Set Interrupt Disable Flag 
Change RAM IRQ Vector 



; Clear Interrupt Disable Flag 



Test AM/PM flag 
If not PM... 
Get a reverse "A" 
Jump ahead 

; Get a reverse "P" 

Put character in upper left corner 
Get first digit of HOURS 

Check if it is "0" 
Get a reverse "1 " 
Jump ahead 

Get a reverse "0" 

Put up first digit on screen 

Get second digit of HOURS 

Mask out bits 4-7 

Add on #$B0 to get reverse number 

Put up second digit 

Get a reverse ":" 

Put on screen 

Get first digit of MINUTES 

Save bits 4-6 
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If the iiitetriipt is not from the TOD 
clock aliutii, then control h p;»S5cd to 
the openitidg system's housekeeping 
routine. Sec how simple llie HCD for- 
Jiiiiioftho font lock nuikes it to display 
the time? 

If the interrupt is frotn the ;il;um, the 
routine uses ihc SID chip to j;eiicrate 
an nhurn sound. It tlnshes different 
colcns on the screen and retm ns control 
t<) the t)rogr;ini that was interrupted. 
Since the noiuuil interrupt routine is 
not accessed, ilie registers nnist be re- 
stored from the stack before the RTl 
instniclion is executed. 

Li.sting 5 is in Basic. Using the file- 
name "AI.ARM.IRQ", it loads Listing 4 
into memory. It is alscj used to set the 
IXJD cluck and the alarm, and to enable 
the alarm irucrrupl. Once the necessary 
registers liave lieen set, the jnogram is 
no longer needed. Pressing the run- 
stop/restore resets the R.^M vector and 
CIA chip and turns off the alarm, so 
don't hit this combination hefore the 
alarm souruls. 

The program will ask you if you wish 
to set the clock lime, or the alarm lime 
or whether you want to (]nil. When en- 
tering the time, only the numher keys, 
A, P, cursor right and return are active. 
Once the time appears as ytiu want [t 
set, press return. 

Try setting the time and alarm several 
mintites apart to see how it vioiks. Make 
sure you utulcrsland what every part of 
Listings '! and ,") are doing and which 
of die CIA registers these programs are 
affecting. 

Incidentally, GEOS owirers. this is es- 
sentially how desk'fop's clock arul alarm 
work. GEOS also uses CIA I's TOD 
clock. 

Timers A and B— Programming the 
CIA chips' timers is a little m<ne com- 
plicated. Fin limiting my discussion to 
their use as sources of interrupts while 
they're set to count internal inicrojiro 
cessor clock cycles, .■\s previously men- 
tioned, the timers can also coian [mlses 
from ati exiernal source on line CN T 
of the u.ser port. 

'fhe two Ifihil counters that make up 
timers A and It arc located in registers 
S04-S05 and S 06-50 7, respectively, 
in low-bytc/high-byte format. These 
are adiircsses $DC:04-SDC;O7 (56:124- 
56327) for C:iA i, and SDD04-SDD07 
(.56r>80-.565«;i) for CIA 2. Reading these 
legisters returns the curretn value of 
the appropriate counter; wiiling to 
them loads du- liiner latch. 

When started, the counters count 
down once every clock cycle. On the 
C-64, there are 1 ,022,730 cycles per sec- 
ond, hascri on the NTSC svsiein. You 



ALARM 



ALOOPI 



AL00P2 



LSR 




L5R 




LSR 




LSR 




ORA 


#$B0 


STA 


S0420 


LDA 


$DCOfl 


AND 


nop 


ORA 


#$B0 


STA 


$0421 


LDA 


#$BA 


STA 


$0422 


LDA 


SDC09 


AND 


#S70 


LSR 




LSR 




LSR 




LSR 




ORA 


#$B0 


STA 


$0423 


LDA 


SDCOS 


AND 


nor 


ORA 


#$B0 


STA 


$0-124 


LDA 


SSAE 


STA 


$0425 


LDA 


SDcoa 


AND 


#SOF 


ORA 


nsa 


STA 


$0426 


LDA 


SDCOD 


AND 


#S84 


CMP 


i?$84 


BEQ 


ALARM 


JMP 


SEA31 


LDX 


#$10 


LDY 


#$00 


STY 


$02 


LDA 


#$20 


STA 


SD400 ; 


STA 


JD401 ; 


LDA 


#$0F 


STA 


SDA^8 ; 


I,DA 


#S00 


STA 


$D406 ; 


LDA 


#$29 


STA 


$D405 ; 


LDA 


#$11 ; 


STA 


SD404 ; 


DEY 




QNE 


AL00P2 


DEC 


$02 


BNE 


AL00P2 


DEC 


$D020 ; 


DEC 


SD021 ; 


LDA 


#$10 ; 


STA 


SD404 


DEX 


I 


BNE 


ALOOPl ; 


PLA 


i 


TAY 




PLA 




TAX 




PLA 




RTI 





; Shift right 4 bits 

; Get reverse character 

; get second digit of MINUTES 

; Do the same for SECONDS 



Get a reverse "." 
Put on the screen 
Get Tenth of seconds 



Put on screen 

Check ICR if interrupt 

is from the Alarm 
Check bits 7 and 2 

If both are set, sound alarm 
Go to KERNAL IRQ routine 

Setup for Alarm (16 loops) 
Set Delay Counters 

Set up SID chip 
FREQ Lo 
Freq Hi 

Volume 

S/R 

A/D 

Main Alarm LOOP 

Turn on Triangle Waveform 



Delay LOOP 



Decrement border color 
Decrement background color 
Turn off voice 1 

Decrement LOOP counter 
If not done, do it again 
Restore registers from the stack 



Return to program 



Listing 9. Basic program that activates Listing 4. 

100 HEM - TOD CLOCK ALARM DEMO :REM*206 

110 REM :REM*253 

120 L(l) = 1:L(2)=9:L(4)=5:L(5)=9:L(7l = 5:L(8)=9:LM0) = 9 :HEM*219 
130 POKES32ea,0:POKE53281 ,0:PRINT"{SHFT CLRMCTKL 8)"; :HE.M*115 
1 40 IFA = 0THENPRlNT"LOADItJG ALARM. IRQ" : A = l : LOAD" ALARM. IRQ" ,8,1 

:REM*17e 

150 SYS 49152 :REM*69 

160 PRINT"{SHFT CLRJ(3 CRSR DNsJ [2 CRSR RTsHCTRL 8)1. SET CLOC 

K TIME" :REM*81 
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17^ 

^Bi 

200 
210 
220 
230 

240 

250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
330 
390 

400 
410 
420 
4 30 

440 
450 



PRINT"(2 CRSR RTs)(CRSR DN)2. SET M.ARM TIME" 

PRINT" (2 CRSR RTs)(CRSR DM) 3. QUIT" 

GETB$: IFB$<"1 "0RB$>"3"THEN1 90 

IFB$ = "r'THENCB=0:T$ = "CLOCK" 

IFBS="2"THENCB=1 28:TS="ALAKM" 

IFB$="3"THENEND 

PRINT" (CTRL 6) PLEASE ENTER THE "T$" TIME":H=1: 



AP$: 



PRINT" (10 CRSR RTs)01 :00:00.0A{11 CRSR LFs)";:TH$: 

.0A":CP=1 

PRINT" (CTRL 9)"MIDS(TM$,CP,1 )"{CTRL 0)(CRSR LF)"; 

GETAS:IFAS=""THEN2 60 

IFAS = CIIRS(13)T1!EN380 

IFAS="(CRSR RT)"THEN340 

IFCP!11THEN320 

IFA$<>"A"ANDA$<>"P"THEN2 60 

GOSUB3 30:GOTO260 

IFA$<"0"ORAS>CFJR$(L(CP) + 48)THEN260 

TM$=LEFT$(TMS,CP-1 ) +A$+RIGHTS{TMS , 11 -CP) 

PRINTMID$(TMS,CP, 1 ) ; :CP=CP + 1 tl 1 * (CP = 1 1 ) 

IFCP/3-INT(CP/3)TUEMPRINT"{CRSR RT}" ; :CP=CP+1 

IFCP=1THENPRINT"(11 CRSR LFsT'; 

GOTO250 

POKE56335,CB 

AP$-RIGHT${TMS,1 ) :H = VAL(MID$(TMS, 1 ,1 1 ) +1 6+VAL(MID$ 

) 

M=VAL(MID$(THS,4,1 ) ) *1 6+VAL [MIDS (TM$ , 5 , 1 ( ) 

S=VAL(MID$(TMS,7,1 ) )*16+VAL(MIDS(TM$,8,1 1 ) 

HP = -128*(APS = "P") + i1:POKES6 331 ,HP 

POKE563 30,M:POKE5 63 2 9,S:POKE5 6328,VALlMID$tTMS,10, 

IFB$="2"TKEMPOKE56333,136 
GOTO! 60 



: REM* 143 
:REM*8 

: REM* 5 3 

:REM*49 

: REM* 40 

:REM*176 

"A":M=0:S 

:HEM*216 

"01 :00:00 

: REM* 187 

:REM*44 
: REM* 17a 

:REM*85 
; REM* 168 
: REM* 196 
:REM*119 
:REM*14 8 
:REM*135 
:REM*162 

: REM* 50 
: REM* 174 

: REM* 54 

: REM* 189 

;REM*205 

( TMI , 2 , 1 ) 

:REM*Z32 

: REM* 31 
:REM*1 53 
:REM*181 
1 )) 

jREM*96 
;REM*IH( 

; REM* 1 1 



Listing G. Interrupt-generator routine far Listing 3. 

;NMI ROUTINE DEMO 

f USING TIMERS A 4 B OF CIA2 



EXP 



LDA 


dKNEWNMI 


STA 


S031B 


LDA 


#>NEWNMI 


STA 


S0319 


LDA 


#SFF 


STA 


SDD0 4 


STA 


SDD0 5 


LDA 


*S2F 


STA 


SDD06 


LDA 


(*S00 


STA 


SDD07 


LDA 


#S51 


STA 


SDDOF 


LDA 


ssn 


STA 


SDDOE 


LDA 


«'S82 


STA 


$DDOD 


RTS 




NEWNMI 




SEI 




PHA 




TXA 




PHA 




TVA 




PtJA 




LDA 


SDDOD 


BPL 


RESTORE 


LDY 


SSOF 


LDX 


#50E 


LDA 


SC0D7 


PHA 




DLOOP 




LDA 


SD,X 


STA 


SD,Y 


DEY 





jChange RAM NMI Vector 

;Set up CIA2 registers 
; Timer A LO 
jTimer A HI 

; Timer B LO 

;Timer B HI 

;CRB - Timer B counts Timer A 

;CRA - Timer A counts clock cycles 

;ICR - Enable Timer B interrupts 



;New NMI routine: Set 
; interrupt disable 
;Save Registers .A, *Xr 
;and .Y to stack 



;Check ICR to see if interrupt 

;is from CIA2 

;If not got to KERNAL routine 

;RQtate direction vectors of the balls 

;Save last value to stack 



;Push other values up one 
;Do next value 



will find (lull yoii Ciiit culciilatc thv (iiiK' 
ittukcsin sl-loikIs loracoiinlcrio icatli 
/eio 1)y takiiij; ilu- laicli v;iliif (Iii^li bytt' 
* 250 + low l)yic) atui flividiiij^ hy 
1 ,022.730, 

Each of tilt' cciinitfr s also has a cor- 
responding contrul rcj^isU'i , i:RA (SOE) 
;ukI am (SOF), ThesL- arc locaiwl ;u 

Si)c:OK-snc:()!' (r)():i:5i-r>i):i:5r)i lor t;iA 

I, ami SnllOK-SHDOl' (">(>">< 10- f)(lr>lM) 
lor (HA 2. [■'igiirr (i oiu lines how thi^sc 
ruj^isttrs arc set u]), 

These rc^islcrs cdiitrol olhcr as[>fcts 
of the {;iA chip besides timers A and 
B: namely, the TOD clock (hit 7 ofCRB) 
and the serial fjort. The only hits thai 
are of loim-rn in tisinjr the timers to 
gent'iatc- iiiicrriipts are U. it. I and fi of 
CRA and CKH. and l)it fi ol (.IRU. 

Hit starts (]} or st<i[)s (0) tlie cor- 
responding timer. Bit H selects Onc' 
Shot (1) or f Continuous mode (0) a,s dis- 
cussed earlier, Bit I fiitces the vahte in 
the time hitcli to he loaded inti> the 
correspotiditig timer. 

Bil f) or(lR,'\ selects v\hetln'i timer A 
is e(nintinj5 microprocessor cytles or 
CNT jHilses, Bits r» and C. of CRB rielet- 
mine what timer !1 will cotint. Figure 6 
explains which values select which op- 
tion for tinier B. 

Listing f) is a muchini* langmigi' rou- 
tine iliut sits M the end of the hall- 
animation pr{)gr;nn (Listing '^ in Part 
1), It uses timers A and B <Hi C:[,-\ '2 to 
geneiate an interiupt a|)pii>xtmately 
every three scerinds. 

To do this, titner A latch is loaded 
with SFFFF and timer B latch with 
S002F, The control registers are set up 
so thai tinier A counts clock jntlses and 
timer B c<nirUs timer A, flie foice-lalch 
:>n(i start-iimi-r hits are also set. Tlic K'M 
is set to etiahle timer B inteirujils. 

At this time, NKU'N'.Ml is executed, 
.^n SKI instruction sets the interiupt 
disable flag in tlie processor status reg- 
ister. The registers are iheii pushed onto 
the stack (lines '22-l()-22H0). and the ICR 
is checked to make sure (hat the inter- 
rupt laine from (HA 2 (lines 22'.)0- 
2300.) 1 he II) directioti vectots for tlie 
eight halls are then shilletl over <n)c, 
causing tlie balls to travel iti different 
directions. 

Go through the program carefully to 
see how the OIA registers are being 
program tiled, especially C.RA and t;RB, 
fry to calculate the exact time irUerval 
by using the forttmla staled above, 

li you're using an assembler, comjjile 
the ball-aniination [jrngram with List- 
ing li added on. Xoic tliai line 2020 in 
Listing '^ is replaced with the new pro- 
gram lines, ilk' utre first In suvf mi im- 
dumgfd copy of Lhihig 3, because I'ai t :i I 
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of this arlicU' will modify it ag;iin, in a 
(lifffifiil way.) 

riu'ii iy|)i' In SVS (<)ir>'J and watili 
what lia))|>cns. Note diat uven dioiigli 
tliL- NMl iiilt-niipt Is IjL'iiij; used, press- 
ing die restore key has no effect because 
the intenLipt routine checks to make 
sure that timer B of CIA 2 is ilie source 
of tjie interrupt. 

Serial Port — liie serial port is ac- 
tessctl dirinigh registers SI' (SOC:) and 
CRA (see Figure 6). Wlien you're send- 
ing data, tinier A is also li.scd to sei (he 
baud rate. 

For more information on prograni- 
ndng and rising the CIA chip's serial 
port, consult the Cummudorc 64 Program- 
mrr'i Referrnrr Guidf, Com mod me Btisi- 
ncss Machines, Inc.; Mii/ijihiff the 
(MniiiMilmT 6(. hv .Sheldon lx.'ernon. 
COMl'U I'K! Books; and GEOS hxMieand 
Out, by M. Tornsdorf and R. Kerkloh, 
.Abacus Software, Inc., 1987. 

Flag Line — .'\hhough CIA I's flag line 
is already used internally by the (Ws 
serial bus, CI.-\ 2's flag line Is available — 
on the user purl at ])in I!— for whatever 
applications you can dream uj». (3 



DEX 

BPL DLOOP 
PLA 

ETA SD 
JMP SFEBC 
RESTORE 

JMP SFEIC 



; Cheek if done 

;Get last value from stack 

;Put at ttie beginning 

Jjump out through KERNAL NHI exit 

;Jump to RESTORE key routine 



Figuro E 

JOE 
CRA 

$0F 
CRB 


. Control regiatars. 

Control Registers 

lOD Sarlal 
dock Pod bipul 
Fiea. Mode Mode 
•^^•Hz •^outpui •■<t>2 »uties 
1=iaHjc lEirwul I^CNI Unc 
A -S fl. 








TODIN 1 


SPMODEllNMODEl LOAD 

&4 1 32 1 fG 


1 T \ "":' 1 


PBON 1 


START 
1 




7 


6 3 4 

-0- 

fOtfC* 

Lalch 
load 


Run Output 

Mode Mods 

••Cont ••palte 

,.,^.o, ,.to^,l. 


I 

POK ■ 

Output 

• •HO 


Slott 
Itmat 
• •itop 




ALARM 1 

ize 1 


INMODE 
&•< 32 


1 LOAD 
1 16. 


1 r 1 '': 1 


PBON 1 


START 
1 




r 

lOD 
Clock 

••Clock 
t>Ala(tn 


Input Mode 

■ •■4>2 Bul(«t 

■ l-CNI ttne slqnali 
Ui-Ttinc( t» count > to • 
ll>Tifn« A iDhUc cm 

ii titqh 


3 2 


t 


o 





PARTS 



Recap 

So far, you have learned what inicr- 
rupt.s are. how the C-Ot's operating sys- 
tem uses them and how yntt can use 
them. U'e have explored the C'!.-\ chips 
and how you can program them to pro- 
duce intcrriipt requests from a variety 
of sources. 

We will novi- explore perhaps (he most 
fascinaiing chl]) inside litis liny eight- 
bit computer, die Video Interface Con- 
troller (VICll) chip. 

In addition to its graphics and sprite 
capabilities, the VIC-II can also gener- 
ate IRQ interrupts from four possible 
sources, creating many unltpie and in- 
teresting video effects, such as split text 
and graphics screens, nu>re [ban eight 
sprites at once and multiple border 
colors. Many connnerctal programs and 
games make use of these remarkable 
effects to produce seemingly impossible 
video displays. 

The VJC-U Chip 

I.Ike ibe Cl.-V chips, the VIC-Il is a 
specialized peri [)!i era! processor unit 
(PPU) that generates the C-G-l's video 
display — whether text, graphics, sprites 
or any combination of them. Unlike the 
CIA, the VICMI can directly atidress the 
IL'VM menuny. altlumgh only I BR at a 
time, riie R.\M stores die tesi ami bit 



mapped graphics screens, color mem- 
ory, character deflniiions and sprite 
definitions. 

The \'ICM1 also uses -!7 iiiiernal reg- 
isiei'S. wiiich lei you [>rogram die VIC!- 
II and also communicate with tlie li.'jll) 
microprticessor. fable 2 briefly de- 
scribes the registers, only a few of which 
are actually needed when dealing with 
interrupts, but all are important in gen- 
erating the video effects. 

Interrupts from the VIC-Il chip ap- 
pear on the 6510's IRQ or maskable 
interrupt line. In many ways, program- 
ming the V'IC-Ii to produce interrupts 
is similar to using tlie CI.-V clilps; 
liowcver, there arc some impoiiant 
differences. 

Where VIC-IL Interrufis 
Originate 

As mentioned earlier, tliere are four 
sources of interrupt requests from die 
VKMI. Figure 7 shows where they orig- 
inate. The fust three rclaie to die actual 
video display, while the fourth deals 
with light [)eu data. 

'file first inietru|)t is tlie raster com- 
pare, whicli occurs v\'hen tlie current 
screen or raster line being displayed 
equals the value set in tfie raster-com- 
pare register. 

Raster lines refer to the horizon tal 
scan lities ihat make up the video dis 



play. To beiier understand ihcm, you 
need to know a Hide t>ii aboui liovt' your 
video [!is[>lav works. In <iider to create 
the text and gra])hlcs von see on the 
screen, an electron beam [jroduced by 
the cathode ray tube (C:R'fl of the vide<i 
display scans a total of 202 liori/.(mlal 
lines across the screen. 

If you look closely, you c;in see the 
Irulividual scan lities or taster lines. Al- 
ihough there are 2(J2 lines on an .-\mer- 
ican NTSt; standard display screen, (he 
VfCMI uses only 2(10 of iheiii — lines 'yli 
through 2-!!)— to create the test or 
graphics display, I'fie rest of ific lines 
make u|> ihe iip[)er and lower fjorders. 

In their trip across die screen, the 
sciii lines are divided up into jiixels 
making up the left liorder, [VIO dots of 
horizontal resolution, then ttie right 
border. The screen display starts at 
pixel 2'J, Every one <if these lines is 
u]Kiatcd ()0 times a second. 

It's similar lo l)uilding ,i brick wall, 
2()2 layers thick iroiii tojj to boiicnii, 
every sixtielli of a secoiul. lU using dil- 
ferenl colored bricks in the proper lo- 
cations, you can create a text or bit- 
mapjied graphics screen, depending on 
where the screen-disphiy information is 
coming from. 

In tile aiilniadon demonstrations we 
used earlier, you may have noticed some 
flickering of the sprites as they traveled 
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around the screen. This happens when 
tlip interrupt to {hiirif^t.' tlifir locution 
occiits when ;i sfjriic \s iinly hiilfw;iy 
displayed, or while the MSB i agister is 
heinff altered. You cini itvoiil this flick- 
ering hy selecting a raster interrupt to 
change the positions while the electron 
beam is not on the display area, I'll 
demonstrate this use ot the raster-com- 
pare interrupt later, 

'I'lic second and third tyf)e% of inter- 
rupts have to do with the sprites, or 
Movable Object Blocks (MOlis), as Com- 
modore calls them. The \'K]-I1 chip can 
detect when diere is a collision between 
a sprite and the bitmajjped graphics 
display, or betweeti two sprites. Al- 
ihotigli a sprite is delnied by a 2-1 -hy- 
21 rectangular grid, collisions only oc- 
cur when a sprite's dot (ouches another 
■Siiritc or a text character or part of the 
bitmapped graphics screen. 

The fourth source of VICII inter- 
rupts is the light pen — d pen-shaped 
probe with a lighi-sensitig device in the 
tip that is placed directly on the video 
display. Wlii-n the scan litse passes un- 
der the light sensor, the location of the 
light pen is stored in two of the VKMl 
registers and an interru])t is generated. 

The light-pen input is connected to 
the fire-button of control port 1. Tbcre- 
forc, this interrupt can also be activated 
by pressing the rire-button of a joystick 
plugged into the control ])ort. In this 
case, the values of the light pen location 
registers would be meaningless. 

How These iNrrERRUprs Get 
To THE 6510 

l.ikc the CIA chips, all four sources 
of interrupts from die VlCll are con- 
trolled by an interna! register. Unlike 
the CIA chip, this is done through two 
registers instead of one. These are reg- 
isters $19-$1A, which are located at 
SD0I9-SD01A (5a27B-.-);}274). Figure 8 
shows how tlvey ate set up. 

The first is the interrupt Ihig register, 
which, like the ICK register of the CI.-\ 
chip, signals when an interrupt has tnig- 
inated from the VlCIl chip and indi- 
cates which of the possible sources has 
generated die interrupt request. As 
shown in Figtjrc 8, bit 7 will be set when 
any of the four sources generates an 
interrupt. The corres])oiuling bits of 
the sources responsible will also he set. 

When an interrupt occurs f'r<mi a par 
ticular source, a latch, which prevents 
that interrupt from occurring again un- 
lit the latch is cleared, is also set. This 
is done by writing 1 to die appropriate 
bit of the interrupt flag register. 

The second register is the inlerrupt- 
euable register, which selects or enables 



a particular interrupt by setting the ap- 
propriate bit to 1. To clear or disable 
an interrupt, the a])|)ropriale bit imisl 
be set to (I. 

For c>;aui[)le, in a program to deter- 
mine when a missile hits a spaceship, 
the interrupt for a sprite-to-spritc col- 
lision is enabled by writing a value of 
SO'! to the interruptenable register 



(SI A), When the missile touches the 
spacesbij), an IRQ inleirupl will oixui, 
and hits 7 and 2 of the intt-iiupl flag 
register are set. 

In addition, the appropriate bits of 
the sprite-to-sprite collision register 
(SIE) are set. This register, which is lo- 
cated at SDOIF, (53278), keeps track of 
which sprites are involvetl in a collision. », 



Table Z, Video IntsrfacB cantrdllai' rsglatar map. 


Register 


Address 


Description 


MOBXY 


$00-$OF 


Sprite position registers (OX, OY, 
IX 7V) 


Nrsicx 


$10 


Most significant bit of X-posi(ion 
registers 


CNTY 


$11 


*C;outrol register (bit 8 of raster- 
compare register) 


RASTER 


S12 


* Read-raster scan line/write-raster 


^ 




compare register 


LPX 


$13 


*Lig!it pen X position (0-160) 


LPY 


$14 


*I.ight pen Y position (0-199) 


MOBF.N 


$1.5 


Sprite enable register 


CNTX 


SIG 


Control register 


.MonvF.x 


$17 


Sprite vertical expansion register 


MCR 


SIH 


Memory control register 


INTFI-AG 


SIO 


•VlC-II interrupt flag register 


INTKN 


SIA 


*VIC-I1 interrupt enable register 


MOBPR 


SIB 


Spriie-to-foreground display priority 


MOBMC 


SIC 


Sprite multicolor mode enable 
register 


MOIVXKX 


SID 


Sprite X-expand register 


Mt)BMOIl 


SIE 


*Sprite-lo-sprile collision register 


MOBFG 


SIF 


*Spritc-to-fbregrouud collision register 


F.XTCOL 


$20 


Border color 


BGCOLO 


S21 


Background color 


BGCOLI 


S22 


Background color 1. multicolor 1 


BGCOL2 


S23 


Background color 2, mullirolor 2 


BGC:Ol3 


S2-1 


Background color 3, multicolor 3 


MOBMCO 


$25 


Sprite multicolor 


MOIVMCl 


$26 


Sprite multicolor I 


Moncoi. 


S27-S2E 


Sprite color registers 


* Registers 


that arc important 


in VIC-U interrupts. 



Figure 7. Bourcea of Interrupt raquaats from the VtC-ll. 



Raster 
Scan Line 


=> 


Raster 
Compare 






















o 
o 


Interrupt 

Enable 

Register 


Sprite to 
Sprite 






1 < 










Interrupt 

Flag 
Register 


Sprite to 

FG 




1 \ 












Light Pen 
Trigger 






^ 








IRQ 
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II nvo sprites tiiakc contact, tlic cone 
spondirij^ bits cif thi' aillisicm register 
lire set In 1. A si ni liar register (SIF) is 
iisetl t" monitor spritc-io-foregrountl 
coUisiotis {see Figure 9), 



Also, the spritC-tO'Spnic collision in- 
terrupt latch will he set. preventing ;iny 
finther sprite nillisions IVom generat- 
ing an interrupt. Alter the collision is 
handled by the interrupt routine, this 



Ftgura B. Tha intsrrupt-flag and interrupt-enabla reglBtors. 



Interrupt Flag Register 



Intsirrupt Occurred ? 
1 • YES . - NO 



Jk 



Hot Used 



READ Interrupt Occurred From This Source 
1 . YES , - WO 
WRITE "1" Will Clear Latch 



t19 



Value 
Bit 



$IA, 



Bit 



IRQ 1" 

128 [ 


64 32 


16 


I LP 

8 


IMMC 

4 


IMBC 

2 


IRST 
1 


7 


6 5 

Not Used 


4 


3 
Light 
Pen 


2 

Sprite to 

Sprite 


1 

Sprite to 
FO 



Raster 

Compare 


128 


64 32 


16 


ELP 

8 


EMMC 

4 


EMBC 

2 


ERST 
1 



3 2 1 □ 

WRITE . Set Status of Interrupt 
1 • Enable ; - IJisable 



Interrupt Enable Register 



FIgupa 0. The Bprlte-to-foreground ond Bprite-to-sprlto cDllision rsgiacarB. 



Sprite to Sprite Collision Register 



tc 



$w 



Bit 



1 



Did Sprite collide with the foreground display 7 

Sprite to Foreground Collision Register 



Figura 10. Tha Y acroll and control and raster-comparB registars. 



Control Register & Y Scroll 



$it 



S12 



RcsS Top bit of current scan line 
Write Set tcp bit of Raster Compan 



en 



RC7 

128 



RC6 

64 



RC5 

32 



RCt 

16 



RC3 

8 



RC2 

4 



RCl 

2 



Read 



5 4 3 2 

Bottom 8 bits of current scan line 



Write : Set bottom 8 bits of Raster Compare 

Raster Compare Register 









Did Sprite 


collide with snoth* 


1 Sprite ? 






VahiB 


SPR7 

128 


SPR6 

64 


SPR5 

32 


SPR4 

16 


SPR3 

8 


SPR2 

4 


SPRl 

2 


SPRO 
1 


Bit 


7 


6 5 4 3 2 1 

1 = Sprite Collision Occurred 


a 


V/tkie 


SPR7 

128 


SPRS 

64 


SPR5 

32 


SPR4 

16 


SPR3 

8 


SFR2 

4 


SPRl 

2 


SPRO 
1 





Extended 
color mode 
Itnablt 


Bit-map 

mode 
l-etiable 


Blank 
Screen 
O'bJanK 


No. rows 
0-24 
1 .25 




1— Fine scroll display -i 

vertically by Y scan 

lines (0-7) 


Value 


RC8 

128 


ECM 

64 


BMM 

32 


DEN 

16 


R3EL 

8 


Yi Yl YD 11 

4 2 1 1 


Bit 


7 


6 


5 


4 


3 




2 1 



RCO 
1 



latch should be cleared by writing a $04 
to tlie interru])! flag register. 

How These Interrupts 
Are Used 

Raster-compare iiitcrnipC — Using 
raster-compare interrupts involves set- 
ting the rastei'ctiinpare register to the 
apiiioprinte viiluc, enahliiig liie inter- 
ru[>i using ihe iiitei luptetiahle register 
■,\ud installing ail int('iru])t hanilliiig 
I online hy i hanging the IRQ itAM vec- 
tor ($0:Wl~S(Wir)). Listing 7 demon- 
sirates lKn\' the rastereum])are interrupt 
can be used io create an tniustial video 
effect. 

Essentially, the screen is split into two 
lialves. The iMiltoin half is normal text. 
I he IO]) hall displays text thai waves 
hack and forth hy means of ihe hori- 
/tuital line-scroll register, while text 
at tile hiitioin of the screeti remains 
stationary. 

The split is accomplished hy setting 
a raster interrupt to occur at scan line 
0, ihen again al line Ifi-l. The first in- 
iciiu])t loads the next value Iroiii the 
rines( roll chila at the end of the pro- 
gram and stores it in the hoi i/ontal fine- 
scroll and control register (SHi), then 
sets the rasier-coiuparc register to gen- 
crate the next interru])! al line 154. At 
this lime, the fine scroll is set to 0, as 
is the raster-compare register. 

Since the raster-conij>are register is 
only eight hits anil there are 262 pos- 
sihlt: scan lines, a ninth hit must he used 
to select raster lines greater than 2.')ri, 
This bit is located in \'1C-II register SI I, 
bit 7 (see ITgure 10), 

The raster-fom)iare register has a 
(hial fnnclion. VVlien it is read, it will 
letmii the value oltheturrent scan line. 
This is iiseiiil to help avoid ilickering 
of the screen display while areas of the 
hiima])pctl graphiis screen are being 
changed. Make sure that yon also check 
bit 7 of register $] I as well, 

F.xamine Listing 7 careftilly. It is im- 
portant lo uiuierstaiid thai I wo raster- 
compare interni]>is mnsl occur during 
every update of the screen to accom- 
plish the desired effect. Enter and as- 
semble ihe program. To run ii.jnst type 
in SYS ■l'.llr)2; then watch. 

Listing 7 also demonstrates another 
use for the raster-compare inicrrupL 
Kssenlially, instead of using timer A of 
('I.-\ 1 to generate the sixiielii-of-a-scc- 
ond housekeeping interru))!, this now 
occurs at scan line !.">-l- I'his works out 
fine, since the screen is also updated 60 
times a .second. 

Lines 1 1,50-1220 set up the raster in- 
terrupt and disable the interrupt from 
timer A (if (^lA I, Its iiiaj<n eflecl is 
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elitninating any (Ticker th^t m;iy (xciii 
t>y li;iviiig thi," titntr A itiicrnipi uccut' 
slij;!itly iK-finf ilic rasRT cc>ni]);iie in- 
Icrni])!, Wlii-'i) this happens, tin.' raster- 
compare inicnujn will not occur, siiicf 
ilu; iiiicrnipi-tlisablc flag of the C510 
control register is set. This tecliiiicjuc, 
which is Lisfful ill generating animation 
with sprites, is used in Listing 8. 

Sprilf-lo-foreground and spritc-to- 
spritc c(illi.si»ns — liotli ol' lliesL' inler- 
ru])ts arc useful uiien you write ^nmc 
|H(igrains itial use animated sprites, 
rirey let yoti detect when a sprite 
touches another sprite or tlic fore- 
ground— whether it be character graph- 
ics or liit mapped graphics — so you can 
lalie (he appropriate action. 

Aliliinigli ilierc are eiglit sprites, only 
twr) colhsioii-detcclioti interrupts exisi. 
To delertnine wliich sprite is involved ii^ 
the colhsion, the VKMI uses two registers 
for sprite-to-sprite and spriteto-fore- 
gi'ound collisi(ms (SIK and .SIF, rcs|icc- 
tively). Each hit of the register corre- 
sponds to one of the eight sprites, as 
shown iti Figure 10. Hy checking these 
registers, yon can determine which of 
the sprites are involved in the collisitm. 

However, reading these registers will 
clear their contents, so a copy should 
he saved if it is needed. These registers 
should be cleared hefore you expect a 
colhsion interrupt to occiu", so that the 
collisions will he accmately detected, 

LislingH is yet another modification to 
the hall-animation demo (Listijig '^ in 
Part I), Like Listing C in Pan 2, it is 
designed to sit al the end of Listing 'i 
and uses the sprite-to-foreground col- 
lision interrupt to determine when a 
hall collides with a border set ii]) a- 
round the screen hy lasting '.). When a 
collision occurs, the hall's direction is 
changed, and ii appears to be bouncing 
off the wall. 

Note that lines 1390 through 1410 of 
the original Listing 3 will nerd to he 
changed to a [MP instruction. The new 
line shotild read: 

LlflO C04C 4C 30 C! Nl^VlRQ 
jMP ICIIF.CK 

This lets the IRQ routine determine 
whet iter the interrupt is frotn the raster 
compare or iVoni a collision. Line '2020 
is replaced hy the code in Listing H, 
wliicii sets up the VlCMl to generate the 
lunisekeepittg interrupt at scan line 
and contains the sprite-to-foreground 
collisionhandlitig routine. 

Since the animation and the collision 
both use the IRQ interrupt generated 
from the VICMI chip, the progratn must 
determine which interrupt it is servic- 
ing by checking the interrupt Hag reg- 



Listing 7. An unusual visual effect using tlia rastar-compars interrupt. 
♦= SCOOO 

THE SHAKIHG SCFtSEN 
*♦*♦■* RASTER COMPARE DEMO ** + + ♦ 



;Sot Interrupt Disable Flag 
; Change IRQ RAM Vector 



SEI 




LDA 


/y<NEWIHQ 


STA 


$0314 


LDA 


^>NEWIRQ 


STA 


$0315 


CLI 




LDA 


#$00 


STA 


$02 


STA 


$DCn2 


LDA 


#$1B 


STA 


$Don 


LDA 


#501 


STA 


JD01A 


STA 


$DCOD 


RTS 




NEWIRQ 




LDX 


$D012 


BNE 


NORMAL 


SHIFT 




LDV 


102 


I NY 




CPY 


(ISOE 


BNE 


GETY 


LDY 


IISOO 


GETY 




LDA 


YS,Y 


STA 


SD016 


STY 


S02 


LDA 


#$01 


STA 


SD019 


LDA 


#S9A 


STA 


SD012 


JMP 


SEA81 


NORMAL 




LDA 


#$06 


STA 


$D015 


LDA 


#$01 


STA 


$0019 


LDA 


#$00 


STA 


$D012 


JMP 


$EA31 



YS 



[Clear Interrupt Disable Flag 
jlntlallxe counters and VIC-II chip 
;Set pointer to zero 
;Set Raster Compare for scan line 

;Set top bit to 

; Enable Raster Compare Interrupt 
fDisable Timer A interrupt from CIA 1 



jGet value of Current scan line 

!lf not at scan line normal display 

;Get pointer to fine scroll data 

; Increment pointer 

; If at end of data ... 

;,,. then start again 

;Get fine scroll data 

;Put in horizontal fine scroll 

jregister 

;Save pointer 

;Reset Raster Compare Interrupt Latch 

;Load value of next I?aster 

jCompare 1154) 

; Save to Raster Compare Register 

;Ej(it interrupt routine through 

;the KERNAL 

iSet fine scroll to 
;Save to horizontal fine 
;scroll register 

;Reset Raster Compare Interrupt Latch 
;Load value of next Raster Compare (0) 
;Save to Raster Compare Register 
;Jump to KERNAL IF!Q routine 



.BYTE B 9 10 11 
.BYTE 14 13 12 



12 13 14 IS 
n 10 9 



;Fine scroll data 



Listing 8. Demo that detects when a ball collldas with a border. 

MODIFIED FLYING BALLS - BOUNCING BALLS 

WITH RASTER COMPARE GENERATED INTERRUPT 

AND SPRITE TO FOREGROUND COLLISION DETECTION 



EXP 



LDA #$1B 

STA $D011 

LDA #0 

STA SD012 

LDA #503 

STA SDOIA 

STA iDCOD 
RTS 
<i 

LDA £D0 1 9 

AND #$02 

BNE COLLISION 

LDA #$01 

STA SD019 

LDA SD01F 



JMP CONT 
COLLISION 

LDA $D01F 



I CHECK 



jinitialize VIC-II registers 
;Controi Register - Bth bit of 
[Raster Compare 

jRaster Compare Register 

; Interrupt Enable - ERST and EMBC 
;Turn off Timer A interrupt from CIA 1 



;Get Interrupt Flag Register 

;Check if IMBC has occurred 

;If YES - then go to collision routine 

;If NO - Turn off Raster Compare Latch 

jClear Sprite - Foreground 

[Collision Register 

[Jump to ball animation routine 



[Get Sprite to Foreground 
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SHIFT 



NOCOLL 



tDY *$07 
LDX #S00 

ASL 

BCC NOCOLL 
PHA 

TYA 

STA CSPRITE,X 

PLA 
INX 

DEY 

BPL SHIFT 

DEX 



NEXTA 



LDA CSPRITE,X 

TAY 

PHA 

LDA MASK.Y 

STA *FE 

PLA 

ASL 

TAV 

LDA SDOOO.Y 

PHA 

CMP #$1C 

BCS NOTLEPT 

LDA $FE 



AND 
BtJE 
LDA 
STA 

NOTLEFT 

PLA 
CMP 
BCC 
LDA 
AND 
BEO 
LDA 
STA 

NOTRIGHT 
INY 
LDA 
CMP 
BCS 
LDA 
STA 

NOTTOP 

CMP 
BCC 
LDA 
STA 

NOTBOTTOM 
DEX 
BPL 
LDA 



$D010 
NOTLEFT 

sD,y 



#$3D 

NOTRIGHT 

SFE 

$D010 

NOTRIGHT 

#S80 

SD,Y 



SDOOO.Y 

#S35 
NOTTOP 
#0 
SD,Y 

#$E2 

NOT BOTTOM 

#$80 

SD,Y 



NEXTA 
IISQ2 



STA $D019 

JMP $EA81 
CSPRITE 

.BYTE 
MASK 

.BYTE 12 4 8 



jCoilision Register 

;Set Y to 7 - Sprite Number Pointer 

;Set X to - Sprite Collision Pointer 

;Check if collision occurred 
;with Sprite Y 
; If NO - try next Sprite 
;If YES - 

; Save Sprite Number 

jincrement Sprite Collision Pointer 

;Decrement Sprite Number Pointer 
;If not all sprites checked, 
;do next one 
jPoint to last sprite 
;collision detected 

;Get Sprite Number 

;Ptit SN in Y 

jSave SN to the Stack 

;Get MSB mask for Sprite 

;Store in zero page location SFE 

;Cet SN back off stack 

jMultiply by 2 

;Put new pointer in Y 

;Get X location of Sprite 

;Save to the Stack 

jCheck if collision is at left border 

;If not check right side 

;Get MSB mask - Check MSB 

jRegister to make 

;sure Sprite is at the left side 

;If NO then check right side 

; Change X direction of Sprite 

;Save to Sprite Direction data 

;Get X location back from stack 

;Check if at right border 

;lf NO - chock top of screen 

;Get MSB mask 

; Check MSB bit 

;If not at right - check top of screen 

;Change X direction of Sprite 

;Save to Sprite Direction data 

;Point to Y value of Sprite Location 
;Get Y value of Sprite Location 
jCheck if at top border 
;If NO - then check bottom of screen 
;Change Sprite Y Direction 



Check if at bottom border 

If NO - Leave 

Change Sprite Y Direction 



jDecreinent Sprite Collision Pointer 
;If more sprites - Check next sprite 
;Clear Sprite to Foreground 
; Interrupt Latch 

jJurap to KERNAL IRQ exit routine 

; Sprites that collided 

16 32 64 128 ;Mask values 



Listing S. Creating the border for the demo. 

M REM (2 SPACES] SCREEN BORDER SET UP FOR BOUNCING BALLS :REH*351 
20 REM :REM*163 

30 IFA = SSTHEN PRINT"(SHFT CLRILOADING BDALLS. IRQ" : A = l : LOAD"BBALL 
S. IRQ", 8,1 : REM* 140 

40 PRINT" (SHFT CLR)(CTRL 2){COMD A) {38 SHFT *e){COMD S!"; 

:REM*16 
50 FORX=1T023: PRINT" {SHFT -}{38 SPACES) (SHFT -)";:NEXT :REM*B2 
60 PRINT" (COMD Z){3a SHFT *s) {HOME) " ; : POKE2023, 1 25 :REM*168 
70 SYS49152 :REM*244 

80 GOTO80 :REM*216 



isier. This occurs in lines 2160-2180. 

F.ntpr [.isiiii^H and ;issoiiilile it, S:ivc a 
copy under thf lllfuniiu* KBAI.I.S.IRQ. 
llu-n load up l.jsiiuii 9 and lypc in RUN. 
'I'liL' tcsi is mafric. i'oi a further exercise 
in workin}; \\i\h VIC-II interrupts, try to 
modify tiie i)i()|j;r;un to detect collisions 
lietwccii halls, and scnti diem bouncing 
olTcach niluT us well. 

Li^lit pen interrupts — rlic final 
soitiTf oi i[nerru])ts is tlie liglil pen. 
Ilou'fver, as diMaissed earlier, tlds in- 
teiru])t (an also he triggeied by press- 
ing ilie fire-lnnton of a joystick plugged 
into control port 1. 

When y<ni (tse u light pen. the values 
orrcgisteis Sl;i-Sl-l ion tain the screen 
position ol the f)en. These registers are 
located at SDI) I :i-SI>0 1 -t'(r.H2()7- 
r};l2f)8). The hori/iniial position register 
(Sl:f) is too small to holdall the possible 
values corresponding to the 320 hori- 
zontal pixel posititnis, so the VTC-Il chip 
compromises by returning a value from 

to 15'.), or every other pixel position. 
With the proper amo\int of creativity, 

the possible elTecls ihat can be created 
wilh Intel rujns are endless. The ball- 
aniniation demo is just a simple ex- 
ample of what can be accomplished by 
accessing the hidden powers of the VI C- 
II video display chijj. The rest is up 
to you. 

External Interrupts 

rhroughotu this article. I've intro- 
duced several ways of creating inter- 
rupts from (nitside the C-G-l, 

The first is (o directly connect to the 
IRQ and NMI lines of the 6.t10 nticro- 
processor through the expansion port. 
Second, you can access the Hag line of 
CIA 2 on the user port, wliich generates 
interrupt i i'(|ucsts on the N'MI line. This 
nieihod has the advantage oflieiiigable 
to disable the intcrru]it via the ICR reg- 
ister, if desired. The third method is 
through the fire-ljutton of the Joystick 

1 port, which activates the light-pen in 
terrupt of the VKMI chip, causing an 
interrupt request tni the IRQ line. It 
also can he turned off and on by setting 
the ap])ro])riate bit of the interrupt- 
enable register. 

The choice is yours as to vvliat you ac- 
tually connect up to generate these in- 
terrupts. This article contains all the 
fundatnentals for generating and pro- 
gramniing with interrtipts. But the best 
way to learn abom them is to play around 
with them yourself ■ 

Jini Hoseh, who hits been programming far 

.to we (c?i years, is a ■tiHerinarum at I ached to 
the Veterinary Hospital of the University of 
I'euHiylvamtt in PhitmMphid. 
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Learn To Walk 
Before You RUN 



WE RECEIVE Nf ANY LETTERS from hl-w Commodore 
owners who want to type in program listings from RUN 
and need help in getting started. To answer many of the 
questions novice users have, we present the following 
guidelines. 

1. First, keep in mind that as a beginner you should enter 
only short Ba.sic programs. Avoid machine language list- 
ings and lengthy Basic progrcims until you get the hang 
of what you're tloing. 

2. To help you catch mistakes in typing in listings, we 
publish Kt/N^s Checksum piogram elsewhere in this issue, 

3. If you intend to save the program you're typing in on 
a brand new disk, you must format that flisk. To do this, 
insert the disk in your drive and type: 

OPEN 13,8. 1 5 <press reluni> 

PRINT* 15."N0:NAME,##" <press reiurn> 

The ## is a two-character identifier that can be any 
combination of letters or digits. NAME can be any title 
for the disk that you choose, as long as it's 16 characters 
or less. 

After entering the above lines, wait for a few minutes 
while the disk spins inside the drive. When tlic disk stops, 
the formatting is done. Then type: 

CLOSE 15 <pres5 rtturn> 

In 1 28 mode on a C-128, you can shorten this procedure 
by typing: 

HEADER "NAME,**" <pr«ss rcturn> 

Caution: The formatting process erases any material 
already on the disk, so if you're formatting a used disk, 
make sure it doesn't contain any programs you want to 
keep. See item 1 1 below, on reading the disk directory, if 
you need to find out what's on the disk. 

4. Before you start typing in a program listing, your 
computer's memory needs to be empty. To make sure it 
is, turn the computer off, wait a few seconds, and turn it 
on again. 

5. As you type in the listing, remember to press the return 
key after lyping each hne. This enters the line into memory. 

6. If you want to review what you've entered, type LIST 
and press the return key; all the lines you've entered will 
scroll by. You can slow the scrolling on the CG't by holding 
down the control key, and on die C-128 by pressing the 
nO'Scroll key. To view certain specific lines, type LIST, 
followed by the line numbers you want; then press the 
return key. For example, LIST 10-50 displays lines 10 
through 50, and LIST 20 displays only line 20. 

7. If you find an error in a line, delete the incorrect 
characters vrith the insert-delete key, then retype that 
portion and press return to enter the new tine in memory. 



8. Be sure to save the program to disk fairly often during 
the typing process. Otherwise, you could lose all your 
work if a power glitch wipes out your computer's meiTiory. 
To save a partial or complete Basic program listing, type: 

SAVE "NAME".8 <press rcuirn> 

In 128 mode on a C'128, you can press F5, type in 
NAME and press die return key. Here, NAME is the 
filename you want die program to have, not the disk name 
you used when formatting. 

Each time you save a revised program to the same disk, 
you must change its filename, or a disk error will occur, even 
if only one character is changed. An easy way to vary the 
filename is by adding version numbers to the end of the 
basic name (Program. I and Progiam.2, for example). The 
numbers will also tell you which version is tlie latest. 

9. If you wish to erase (scratch) unwanted programs from 
a disk, type: 

OPEN15,8.]5 <press return> 

PR1NT#] ,'j,"S(hfi!ename" <press return and wait a few seconds> 

CLOSE] 5 < press relurn> 

In 128 mode on a C-128, you can type; 

SCRATCH "NAME" <pres5 reiurn> 

Be sure mt to erase thefmal version! 

10. Always save the final version of a program to two disks, 
so you have a backup copy in case one of the disks gels 
damaged. When saving to two different disks, you can use 
the same program name in each case. 

11. To view a complete list of the filenames on a disk (i.e., 
read the disk directory), type: 

1jO.\D "$",8 <press retum> 
LIST < press reluni> 

In 128 mode on a C-128, you can just press F3, 

12. When you know what program you want to load, next 
make sure you know cxewlty how its filename is spelled in 
the disk directory, including punclualion, special charac- 
ters and spaces. A mistake hi the filename will keep the 
load from working. 

If the disk directory is still on the screen when you enter 
the Load command, you can refer to that for the spelling. 
If the directory mU be gone from the screen by the time 
you enter the Load command, jot down the exact spelling 
of the filename for reference. Once you're sure of the 
filename, load the progi'am by typing; 

LOAD "NAME",8 <press rcnirn> 

In 128 mode on a C-128, you can just press F2, type in 
the filename and press the return key. 

13. After you've loaded the program, enter RUN to use it. ■ 
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GAMES 



Tag 'Em 

If your goal is to Jmve yourself a ball, why 
not play Tag? 



Jusi [frab ihc ball and run imo 
tlif goal. Tluii's all yoii have w 
do to score in Tag, Sound easy? 
Well, watch oul! Ytnir opponciu 
tries to stop you— aiui to make goals of 
his own. 

If your opponetii tags you while you 
have the ball, you inomentarlly t'rvc/.c 
in place. 'I'o prevent tills, release the 
ball by pressing ihe flrc-bnlton before 
he taj;s you. The ball then continues 







By JOHN FEDOR 

moving in llte direction it was Jjoiiig 
when released. 

As voii plav, beware of the tenter, and 
keep in uiind ibai the etuners can be a 
little "sticky." The winner is the first 
player to reach five point.s, but vovi 
probably won't even notice bow the 
scores ai e adding up, since you'll be 
having s<i iniich fini trving to "burn" 
your opponent. 

The joystick In port 1 controls the 



])layer who is defending the goal on the 
left of tiie screen, antl the Joystick in 
port 'Z controls the jilayer defending 
the righl-luuKl goal. I'lay begins wbesi 
either gamer presses his Ine-bntton. 
The nmsic that accompanies Tag was 
composed by Ken Fountain. IB 

foil!) Frdnr j.s ft fiMvf^c aliitlful with an 
avid interest in cmnpuien, and math. On 
rainy thys. he plays lag mi his Cnmmmlare. 



Listing 1. Tag pragram. 

REM TAG - JOHN FEDOR : REM* 3 4 
1^ POKE 53280, 12:P0KE 53281,1 

:REM*78 

20 PRINT" (SHFT CLR) (CTRL 1H2 C 

RSR DNsf'TABd 9)"A" :REM*58 

30 F0RX=1T017:PRIKT"{H0ME] {2 CR 

SR DNs)"TAB(X>" T"TAB{37-X)" 

G " :REM*153 

40 FORQ=1T02 5:NEXTQ,X :BEM*1't5 

50 PRINT" ( HOME) i 5 CRSR DNs)"TAB 

(TS>"JOHN FEDOR" : REM* 16 

60 PRINT" (18 CRSR DNS)(4 SPACtis 

1 PLEASE WAIT, , .LOADING IN DA 

TA..,{HOME)" : REM* 199 

70 FORX=49152T051711 :READA:POKE 

X,A:CK=CK+A:NEXTX: : REM* 2 ■IS 

80 IF CK0231639 THEN PRINT "ER 

ROR IN DATA STATEMENTS, .,": E 

ND :REM*194 

90 SYS 49152 :REM*1 

1|j0 DATA 169,48,141,60,3,141,61 

,3,32,214,192,76,155,194,16 

2,(5,189,244,199 :REM*50 

110 DATA 32,210,255,232,224,5,2 

08,24 5,1 41 ,32,208,1 41 ,33,20 

8,133,251,133 :REM*119 

120 DATA 253,169,4,133,252,169, 

216,133,254,162,0,160,0,169 

,1,145,253,169 :REM*216 

130 DATA 160,145,251,160,39,169 

,160,1 45,251 ,169,1 ,1 45,253, 

24,165,251,105 :REM*1 90 

140 DATA 40,133,251,133,253,165 



150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 



,252,105, 
133,254,2 
DATA 11,1 
228,224,2 
9,160,157 
DATA 157, 
216,157,1 
208,235,1 
DATA 189, 
,232,224, 

133.251 .1 
DATA 133, 
,12,32,24 
0,189,110 
DATA 210, 
,208,244, 

133.251 .2 
DATA 201 , 
41 ,184,21 
223,217,1 
DATA 218, 
,9,48,141 
48,1 41 ,24 
DATA 162, 
2,224,24, 
,24,212,1 
DATA 141, 
1 3,212,16 
2,0,142,8 
DATA 86,3 
,142,92,3 
88,3,142, 
DATA 14 2, 



0,133,252,1 

32,224 

44,212,224, 

5,144,204,1 

,0,4 : 

192,7,169,1 

92,21 9,232, 

62,0 : 

238,198,157 

1 28,208,245 

69,10 

252,24,166, 

0,255,166,2 

,1 99,32 

255,232,200 

24,165,251 , 

30,252 : 

64,208,219, 

7,1 41 ,224,2 

41,7 : 

32,27,194,1 

,209,5.173. 

9,5,96 

0,138,157,0 

208,248,169 

69,1 12 

5,212,1 69,2 

9,17,1 41 ,19 

5,3,142 

,142,87,3,1 

,142,93,3,2 

89,3 

90,3,1 42,94 



05,212, 
:REM*99 
13,1 44, 
62,0,16 
REM*165 
,157,0, 
224,40, 
REM*235 
,128,63 
,169,0, 
:REM*97 
252,160 
51,160, 
REM*157 
,192,16 
105,16, 
REM*1 73 
169,7,1 
17,1 41 , 
REM+140 
73,60,3 
61,3,9, 
:REM*95 
,212,23 
,15,1 41 
REM* 100 
40,141, 
,212,16 
REM*21 1 
42,91 ,3 
32,1 42, 
REM*172 
,3,120, 



173,20,3,1 33,11 3,173,21 ,3,1 
33,114,169,193 :REM*167 

260 DATA 141,21,3,169,45,141,20 
,3,88,96,2 06,94,3,173,94,3, 
240,3,108,113,0 :REM*217 

270 DATA 169,8,141,94,3,206,88, 
3,173,88,3,208,56,173,91 ,3, 
208,5,169,32,141 :REM*197 

280 DATA 4,212,238,85,3,174,85, 
3,189,249,199,1 33,7,189,99, 
200,41,128,141 :REM*119 

290 DATA 91,3,189,99,200,41,127 
,141 ,88,3,1 66,7,189,206,200 
,141,0,212,189 :REM*6 

300 DATA 219,200,141,1,212,169, 
33,141 ,4,212,206,89,3,173,8 
9,3,208,56,173 :REM*23 

310 DATA 92,3,208,5,169,16,141, 
11 ,212,238,86,3,174,86,3,18 
9,232,200,133,7 :REM*177 

320 DATA 189,51,201,41,128,141, 
92,3,189,51 ,201 ,41 ,127,141 , 
89,3,166,7,189 :REM*23 

330 DATA 206,200,141,7,212,189, 
219,200,141 ,8,212,169,17,14 
1,11,212,206,90 :REM*19 

340 DATA 3,173,90,3,208,56,173, 
9 3,3,208,5,16 9,1 28,1 41 ,18,2 
12,238,87,3,174 :REM*181 

350 DATA 87,3,189,127,201,133,7 
,189,186,201 ,41 ,126,141 ,93, 
3,189,186,201,41 :REM*132 

360 DATA 127,141,90,3,166,7,189 



RUN il right: C-64; Two joysticks 
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,2(96,200,141,14,212,169,219 
,200,141,15,212 :REM*200 

370 DATA 169,129,141,10,212,173 
,65,3,201 ,106,208,20,162,15 
,142,24,212,202 :REM*219 

380 DATA 208,250,120,165,113,14 
1 ,20,3, 1 65,1 14,141 ,21 ,3,88, 
108,113,0,162,97 :REM+55 

390 DATA 160,225,173,68,3,201,1 
,208,2,162,32,201 ,2,208,2,1 
60,32,142,223,5 :REM*137 

400 DATA 142,7,6,140,184,5,140, 
224,5,96,174,4,208,224,27,2 
08,34,173,16,208 :REM*185 

410 DATA 41,4,208,27,206,4,208, 
206,0,208,32,128,197,173,4, 
208,201,18,208 :REM*35 

420 DATA 240,238,61,3,104,104,3 
2,142,194,76,155,194,174,2, 
208,224,65,208 :REM*72 

430 DATA 34,173,16,208,41,2,240 
,27,238,2,208,238,0,208,32, 
128,197,173,2 :REM*90 

440 DATA 208,201,72,208,240,238 
,60,3,104,104,32,142,194,76 
,155,194,96,120 :REM*67 

450 DATA 165,113,141,20,3,165,1 
14,141 ,21 ,3,88,96,169,5,205 
,60,3,240,5,205 :REM*225 

460 DATA 61,3,208,3,32,214,192, 
32,14,192,32,217,198,165,2, 
41,16,208,247 :REM*69 

470 DATA 162,0,189,174,199,32,2 
10,255,232,224,40,208,245,2 

4.162.24.160.5 :REM*12 
480 DATA 32,240,255,162,0,189,2 

14,199,32,210,255,232,224,3 
0,208,245,32,217 rREM*5 

490 DATA 198,165,2,41,16,240,24 
7,173,50,3,201 ,5,176,7 

:REM*139 

500 DATA 173,61,3,201,5,144,6,3 
2,172,198,32,142,194,32,14, 
192,32,139,197 :REM*56 

510 DATA 32,77,198,173,30,208,2 
08,251 ,32,237,195,32,128,19 
7,32,59,194,76 :REM*202 

520 DATA 3,195,173,68,3,240,1,9 

6.173.16.208.41 .1 .133.20.16 
9,0,133,21,174 :REM*241 

530 DATA 0,208,172,1,208,173,62 
,3,208,2,202,202,232,173,63 
,3,208,2,136 :REM*218 

540 DATA 136,200,224,0,208,9,17 
3,62,3,240,4,169,1 ,133,20,2 
24,255,208,9 :HEM+195 

550 DATA 173,62,3,208,4,169,0,1 
33,20,142,0,208,140,1 ,208,1 

73.16.208.41 .6 :REM*55 
560 DATA 5,20,141,16,208,192,54 

,208,7,169,1 ,141 ,63,3,230,2 
1,192,228,208 ;REM*26 

570 DATA 7,169,0,141,63,3,230,2 
1,165,20,208,90,224,26,208, 
7,169,1,141,62 :REM»136 

580 DATA 3,230,21,224,103,206,1 

5. 1 92.120.144.11 .192.155.17 
6,7,169,0,141 : REM* 7 2 

590 DATA 62,3,230,21,224,238,20 



8,15,192,120,144,11,192,155 
,176,7,169,1 :REM*174 

600 DATA 141,62,3,230,21,192,12 
0,208,15,224,108,144,11 ,224 
,239,176,7,169 :REM*168 

610 DATA 0,141,63,3,230,21,192, 
154,208,1 5,224,108,144,1 1 ,2 
24,239,176,7 :REM*218 

620 DATA 169,1,141,63,3,230,21, 
76,223,195,224,66,208,7,169 
,0,141,62,3 :REH*221 

630 DATA 230,21,165,21,240,9,16 
2,32,142,4,212,232,142,4,21 
2,96,206,69,3 :REM*95 

640 DATA 173,69,3,240,1,96,169, 
2,141,69,3,173,1 ,220,41 ,31 , 
73,31,133,251 :REM''157 

650 DATA 162,2,134,252,134,253, 
202,134,254,32,120,196,173, 
68,3,201,1,208 :RE.M*36 

660 DATA 34,174,2,208,172,3,208 
,142,0,208,140,1 ,208,162,0, 
173,16,208,41 :REM*107 

670 DATA 2,240,1,232,134,2,173, 
16,208,41 ,254,5,2,141 ,16,20 
8,173,0,220,11 :REM*142 

680 DATA 31, 3,31,133,251,169,4 
,133,252,133,253,74,133,254 
,32,120,196 :REM'230 

690 DATA 173,68,3,201,2,208,34, 
174 4,208,172,5,208,142,0,2 
06,140,1 ,206 :REM+113 

700 DATA 162,0,173,16,208,41,4, 
240,1,232,134,2,173,16,208, 
41,254,5,2,141 :REH*35 

710 DATA 16,208,96,166,254,189, 
63,3,240,3,76,85,197,1 73,16 
,208,37,253 :REM*132 

720 DATA 133,2,166,252,188,1,20 
8,189,0,208,170,165,251,41 , 
1 ,240,1 ,136 :REM*68 

730 DATA 165,251,41,2,240,1,200 
,165,251 ,41 ,4,240,1,202,165 
,251,41,8,240 :REM*67 

740 DATA 1,232,224,0,208,10,165 
,251 ,41 ,8,240,4,165,253,133 
,2,224,255,208 :REM*1 2 

750 DATA 10,165,251,41,4,240,4, 
169,0,133,2,192,56,176,1 ,20 
0,192,227,144 :REM*63 

760 DATA 1,136,165,2,208,79,224 
,107,208,9,192,119,144,5,19 
2,156,176,1 :REM*69 

770 DATA 202,224,239,208,9,192, 
119,144,5,192,156,176,1 ,232 
,192,119,208,9 :REM*215 

780 DATA 224,107,144,5,224,240, 
176,1 ,136,192,155,208,9,224 
,107,144,5,224 :REM+221 

790 DATA 240,176,1,200,224,26,1 
76,20,192,134,144,15,192,14 
1,176,11,173 :REM*255 

800 DATA 68,3,197,254,208,4,201 
,2,240,1,2 32,76,63,197,224, 
65,144,20,192 :REM*201 

8 1 DATA 134,144,15,192,141,176 
,11,173,68,3,197,254,208,4, 
201 ,1 ,240,230 :REM*13 

820 DATA 202,138,166,252,157,0, 



208,152,157,1 ,208,165,253,7 
3,255,45,16 :REM*162 

830 DATA 208,5,2,141,16,208,173 
,68,3,197,254,208,35,165,25 
1 ,41 ,16,240,29 :REH*64 

840 DATA 166,254,169,32,157,65, 
3,189,39,208,9,3,1 57,3 9,208 
,162,32,142,11 :REM*243 

850 DATA 212,232,142,11,212,169 
,0,141 ,68,3,96,162,2,160,0, 
136,208,253 :REM*202 

860 DATA 202,208,250,96,173,20, 
3,133,113,173,21 ,3,133,114, 
120,169,197 :REM*0 

870 DATA 141.21,3,159,162,141,2 
0,3,88,96,32,15,195,32,27,1 
94,162,0,222 :REM*181 

880 DATA 64,3,189,64,3,201,255, 
208,5,169,0,157,64,3,232,22 
4,4,208,236 :REM'73 

890 DATA 173,66,3,208,8,173,40, 
208,41 ,7,141,40,208,173,67, 
3,206,8,173,41 :REM*42 

900 DATA 208,41,7,141,41,208,17 
3,30,208,133,20,165,20,41,6 
,201,6,240,35 :REM*58 

910 DATA 165,20,201,3,208,10,17 
3,66,3,208,5,169,1 ,141 ,68,3 
,165,20,201,5 :REH*223 

920 DATA 208,10,173,67,3,206,5, 
169,2,141,68,3,108,113,0,17 
3,68,3,240,248 :REM*7 

930 DATA 162,32,142,11,212,2 32, 
142,11,212,201 ,1 ,208,33,169 
,16,141,67,3 : REM* 5 8 

940 DATA 169,48,141,66,3,169,32 
,141 ,64,3,169,10,141 ,40,208 
,169,14,141,41 :REM*214 

950 DATA 206,169,0,141,68,3,108 
,1 13,0,169,16,1 41 ,66,3,1 69, 
48,141,67,3 :REM*204 

960 DATA 169,32,141,65,3,76,41, 
198,169,0,170,157,64,3,232, 
224,5,208,248 :REM*208 

970 DATA 169,2,141,40,208,141,6 
9,3,162,5,142,41 ,208,232,14 
2,39,208,173,4 :REM*17 

960 DATA 220,41,1,141,62,3,173, 
5,220,41 ,1 ,1 41 ,63,3,162,254 
,142,249,7,142 ,-REM*113 

990 DATA 250,7,232,142,248,7,16 
0,137,140,3,206,140,5,208,1 
60,100,140,1 :REM*128 

1000 DATA 208,162,173,142,0,208 
,162,28,142,2,208,162,64,1 
42,4,208,169,4 :REM*216 

1010 DATA 141,16,208,169,7,141, 
21 ,208,96,1 69,0,1 41 ,60,3,1 
41,61 ,3,162,0 :REM*124 

1020 DATA 138,157,0,212,232,224 
,24,208,248,169,1 5,141 ,24, 
212,169,50,141 ,5 :REM*175 
1030 DATA 212,169,15,141,1,212, 
169,57,141 ,12,212,169,5,14 
1 ,8,212,96,1 73,0 :REM*222 
1040 DATA 2 20,41,16,73,16,133,2 
,173,1,220,41 ,16,73,16,5,2 
,133,2,96,0,0,0 :REM*3 

1050 DATA 0,0,0,0,0,0,0,0,0,0,2 
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GAMES 



1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 



52,0,1 ,254,0,3,135,0,3,3,0 
,3,3,0,3,3,0,3,3 :REM*131 
DATA 0,3,135,0,1 ,254,0,0,2 
52,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0 :REM*125 
DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,120 
,0,0,252,0,0,252 :REM*74 
DATA 0,0,252,0,0,252,0,0,1 
20,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0, 0,0, 0<0 :REM*49 
DATA 0,0,0,0,0,0,0,0,0,176 
,195,195,195,195,195,195,1 
95,195,195,195 :REM*211 
DATA 195,195,195,195,174,1 
94,32,80,76,65,89,69,82,32 
,35,49,58,32,32 :REM*138 
DATA 32,194,191,32,80,76,6 
5,89,69,82,32,35,50,58,32, 
32,32,194,173 :REM*127 
DATA 195,195,195,195,195,1 
95,195,195,195,195,195,195 
,195,195,189,19 :REH*9 
DATA 29,84,65,71,45,74,79, 
72,78,32,70,69,68,79,82,46 
,32,32,80,82,69 :REH+ie6 
DATA 83,83,32,66,85,84,84, 
79,78,32,84,79,32,66,69,71 
,73,78,77,85,83 ;REM*178 



1 1 50 DATA 
79,83 
,69,7 

1 1 60 DATA 
,5,8, 
,6,5, 

1170 DATA 
,8,8, 
,12,1 

1 1 80 DATA 
.8,4, 
,8,4, 

1190 DATA 
,5,6, 
,5,6, 

1200 DATA 
,1,1, 
,1,1, 

1210 DATA 
29,2, 
,1,1, 

1220 DATA 
,4,1 
,4,1 , 

12 30 DATA 
,1 ,1 , 
2,71, 

124 DATA 
,0,5, 



73,67, 

,69,68 

8,32,7 

85,78, 

142,0, 

4,5,6, 

5,6,5, 

8,8,12 

0,11,1 

8,12,1 

5,6,5 

5,6,5 

5,4,5 

5,4,5 

5,4,5 

1,8, 

1,4, 

1,4, 

129, 

1,1, 

8,4, 

1, 

1, 

1, 

1, 

1, . . 

12,233 

104,14 

5,6,7 



32,67,: 
,32,66, 
0,79 
84,65,: 
0,0,4,! 
7,8,4 
4,5,6,: 
,10,11 
1,8,8 
0,11,11 
4,5,6,! 
4,5,6 
6,7,8,' 
6,7,8,' 
6,5,4 
,1 ,1 ,1 
,1 ,1 ,' 
6,130 

,1 ,1- 
36,134! 
,2,1 
,1 ,1,1 

,1 ,1 ,1 

,1 ,1 

,1 ,4,1 

,1 ,4,i 
,97 

3,48,1' 
7,8,9,1 



79,77,80, 




14,1 


,89,32,75 


1250 


DATA 


;REM*229 




,1,3 


73,78,147 




,6,7 


5,6,5,3,5 


1260 


DATA 


:REM*113 




,1,3 


5,4,5,6,7 




,3,1 


,1 1 ,8,8,8 


1270 


DATA 


:REM*1 28 




aa 


1 ,8,0,8,0 




,1 36 


5,4,5,6,7 


1280 


DATA 


; REM* 158 




36,1 


4,5,6,5,4 




,2,2 


4,5,6,5,4 


1290 


DATA 


:REM*251 




,2,2 


1,1,1,1,1 




,0,4 


1,1,1,1,1 


1300 


DATA 


:REM*3 




,3,3 


136,130,1 




,4,4 


0,129,2,1 


1310 


DATA 


:REM*240 




,t>,4 


1 ,1,1 ,1 ,1 




,8,4 


1 ,1 ,1,1 ,1 


1320 


DATA 


:REM*153 




,2,2 


1,1,1,1,1 




,1,1 


0,0,71 ,15 


1330 


DATA 


:REM*14 




,8,4 


43,24,210 




,0 


10,11 ,12, 







5,0,0,1 
3,1,3, 
4,4,4, 

.7,4,4, 
7,7,4, 

,1,3,1, 

3,1,3, 

2 f2 r2 t 

130,1, 

1,136, 

30,1,2, 

2,2,2, 

^4,4,4, 
4,4,5, 

' *i t ^ t ^ r 

4,4,4, 
3,4,4, 
4,5,4, 
4,8,4, 

2,1,1, 

1,1,2, 

2,2,1, 

,4,8,4, 



,3,1 

1 ,3,1 

8,6,7 

4,8,6 

0,4,0 

3,1,3 

1,3,1 

1,3,1 

2,2,2 

2,1,1 

130,1 

1,1,1 

2,2,2 

2,2,2 

2,2,2 

4,4,5 

4,4,4 

4,4,4 

4,3,3 

4,4,3 

4,4,0 

4,2,2 

2,1,1 

1,1,2 

1,1,1 
4,8,4 



:REH*182 

,3,1,3,1,3 

,7,4,4,4,8 

:REM*96 

,4,1,3,1,3 

1 .3.1 .3.1 
: REM* 14 

1 .8.2.2.2 
2,2,2,2,2 

:REM*122 

,2,1,1,1,1 

8,2,1,1,2 

;REM*138 

,2,2,2,4,0 

:REM*35 

,4,4,4,4,3 

4,3,3,3,4 

:REM*45 

,4,4,5,4,4 

1,2,2,2,2 

: REM* 2 33 

I ' f ' f ^ t ^ I ^ 

,2,2,2,2,2 
:REM*177 
,2,2,2,2,8 
,4,8,2,2,4 
:REM*29 



JASON-RANHEIM 

CARTRIDGE MATERIALS 
FOR YOUR COMMODORE 64 or 128 

Quality Products 
from the World Leader! 

• Promenade C1 EPROM Programmer 

• Game Type Cartridges 

• Bank Switching Cartridges 

• RAM/ROM Combination Cartridges 

• Capture Archival Cartridge System 

• Cases, E PROMS, Erasers, Etc. 

Call or write for complete informatlonl 



Call Toll Free 
from California 
Tech Support 



800-421-7731 
800-421-7748 
916-823-3284 



E3 



I I JASON-RANHEIM 

1805 Industrial Drive 
Auburn, CA USA 95603 



r"^ — 1 

■ FACTORY AUTHORIZED 

COMMODORE REPAIR CENTER 

1-800-772-7289 



CM Repair imon.,i 

C128 Repair iKiwiTi. 64.95 

1541 Permanent 
Alignment 29.95 

1S41 Repair 79.95 

1S71 Repair 79.95 



99.95 



(3 12| 879-2888 IL 
42.95 Amiga Repair 

Amiga Drive 

Repair 149.95 

Prlnteri CALL 

Monitors CALL 

Other Equlpificnt . . CALL 



CALL BEFORE SHIPPING 

PARTS AND LABOR INCLUDED 

FREE RETURN SHIPPING 

(APO, FF^. AIB ADD SI 0.00) 

24-48 HR. TURNAROUND 

(SutPjtct to P»m AvjMiblllryl 
30 DAY WARRANTY ON ALL REPAIRS 



COMMODORE PARTS 

C-64 Power Supply 34.95 

128 Power Supply 59.95 

C-64 Over Voltage Sensor 19.95 

Other Parts CALL 

I Plus 33.0C Shipping ^Handling I 

AM parti for Commodore equipment usually in Jtock 

For Parts Call |3I2) B79-23S0 

Dealer Discounts Available 



I 



TEKTONICS PLUS, INC. 

150 HOUSTON STREET 
BATAVIA, IL 60510 

CLIP AND i^VE 



VISA- 



Circls 41B on Reader Service card. 



ClfclB 41 3 on Rsador Sarvico caid. 
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GAMES 
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Gravitron 

Battle the pirate pilots by destroying tlieir defense 
systems and fueling depots. 




Slarbiisc Intelligence has discov- 
ered !li;ii pirale fjilois froiii 
host i If spaceships :iu,' plouing 
to invade Earth to steal pre- 
cious water. As an Karth-hased pilot, you 
must attack the asteroids that provide 
shelter and santtuar)' For the pirates. 
Once you cliiuhiate the asteroids' avito- 
matic defense systems, your engineers 
can dismantle their fiielinj^ dej)ols to 
ket']) the pirale slups IVom Hying. I'liat's 
the scenario for Gravitron, a smooth- 
scrolling arcade-style game for the C-64, 
Listings 2 and 'i are Basic hex loaders 
tliat must he typed in, saved to disk and 
individually ttni to create inathine Ian- 
gttuj^e flics. Listing 1 is ihe hoot pro- 
gram that loads in and aciivales the files 
created by Listing.s 2 and 'i. 

Most of the game conttol is accom- 
plished with a joystick in port 2. You 
can pause t!ie action by pressing F7 and 
reset the game with Fl. One caution: 
Gravitron is not compatible with all fast- 
load cartridges. 

The Action 

You move your ships by rotating ihem 
to face in the direction you wish to go 
and then afiplying thrusters. The for- 
ward thrusters ate activated by pushing 
ftnward on the joystick, the vertical 
thrusters by polling back on the joystick, 
lb slow a ship down, rotate it 180 de- 
grees and a|)ply thrusters. 

Asteroid defenses are destroyed by 
firing antimatter pellets at them with 
the fire-button on your Joystick. You 
must be flying at a relatively low altitude 
for the pellets to work, and your ship 
will turn green to tell you when the 
allitixle is appropriate. 

The defensive machines on the aster- 
oid surface are tricky. They don't move 
at the first two levels of play, but cotne 
to life later and seem to shift direction 
in a random manner. However, vou'll 





By CHARLES ORCUTT 

learn tliai it's not random at all. I'o 
evade their iire])ower, increase your al- 
titude. Inn keep in uiind that •foui fire- 
power will Ijecome ineffective, as well. 

Of course, your thrusters consutne 
fuel, so, even while you're trying to de- 
stroy the enemy defenses, you nuist use 
their ftu'l depots. Your ship will turn 
green when its tanks are low enough to 
be filled. To obtain fuel, maneuver liie 
shi[) so it hovers above a fuel de])ot, 
then let it fall low enough to make con 
tact. Don't fall too liard, though, or 
you'll destroy the ship. The longer 
you're in contact with a fuel tank, the 
nu>re fuel y<m'll receive, as indicated hy 
the hori/tmial bar at the bottom of the 
screen. A lowfrcqueiuy bell indicates 
fueling is iti progress; a high-fre([uency 
bell stHitids w-hen the tank is full. 

Once you elitiiinate three enemy de- 
fenses, your engineers can land on the 
asteroid and dismantle its fuel depots. 
You must then move on to another as- 
teroid. Kath successive one offers a 
higher level of play, where the gravity 
is strotiger. Of ctntrse, Hgluing the atl- 
ditional gravity means consuming more 
fuel. The program also generates a new- 
graphics layout for each level. At every 
fourth level you complete, you get an 
extra ship if you currently have fewer 
than dnee. 

At certain levels, you'll confront an in- 
destructible surprise. It won't harm yonr 
ship while you're refueling, hut it's a 
killer otherwise. On other levels, you'll 
encounter a "black hole," which blinks 
slowly until you're uithin its range. Then 
it blinks quickly and pulls your ship to- 
ward it with double gravity. You can best 
pull away fi'oin a black hole's destructive 
force by selecting a vector at a i!ndti])ie of 
5)0 degrees, hi other words, point your 
ship directly to the right, down, left or 
up, and ap[)ly thrusters. 

When you've lost all your ships, the 

RUN it right: C-64; joystick 



game is over. Your score is calculated 
from the defenses you've destroyed, 
with defenses at higher levels yielding 
higher scores. The ])rf)grain save.i the 
top ten scores in a disk llle. 

Programmers Only 

Gravitron uses a technique known as 

smooth scrolling, which is done by 
changing the lower three bits of loca- 
tions ,'):i26r) (vertical) and fj^y?!) (hori- 
zontal). When an overllow value results 
from these changes, the main screen 
position pointer is updated in the ap- 
propriate direction, f hen an algorithm 
copies the source data into the target 
screen area. 

There are two different screen are.is. 
At this point, the screen base location 
is changed, telling the VIC chip to look 
at a different area. I use $7800 and 
S7C00 as the screen locations. The 
screen is split at the bottom to allow 
the user lo see various game variables, 
such as fuel, ships remaining, and so 
on, I use S7000 as the location fen' the 
background grafjhics, but the lower 
portion uses $l)8()0 ibr the character set. 
f his is needed to achieve a stnooth tran- 
sition between the game scene and the 
status indicators. 

The indicators are static with respect 
to the scrolling game by means of a 
dual raster interrupt, fiiis !nterru])t 
also changes screen and border colors, 
VIC character location and sprite color 
and priority. 

There is a pseudorandom screen 
generator that operates every time you 
get to a new level. It selects from ihc 
graphics the imagery it will paste to the 
screen tnap /one. The map /.one is lay- 
ered in nine IK blocks of memory and 
is configtued to allow for vertical wrap- 
ping witlunii anv sign of flicker. 1 hat 
simply means that the top three screens 
are a replica of the bottom three. The 



68 K i; N - SI'KCIAI. ISSUK I'Mi 



iLUISTRATEO HVJA\ MULLKR 



a 



C 



generator uses a scheme to verify lh;ii 
rcpelilioii is niinimi/ed in the resulting 
map. Ii operates quickly enough to he 
invisihie to the usef, yet docs a reuiarli- 
able piece of art work each time it ex- 
ecutes. 

To destroy a sprite, I use a technique 
that has no name I'm aviare of. It might 
well he called disintegr;Uion. It works 
by ANDing the sprite definition with 
numbers that arc derived by a random 
generator. This was a memory conser' 
vat ion effort, but it results in a realistic 
destruction effect. 

The ships (there are sixteen images 
for these) require only ^2 bytes each to 
define, instead of the usual 64. This 
crunched the jirogiam by ,'il2 bytes. 
The pellet sprite was made by clearing 
its zone and ST.\ing three numbers in 
place. This saved memory, too. The 
whole program was made to be as mem- 
ory-efficient as possible. EI 

Charles Orcutl is an eUc Ironies technician 
and a sflftaught Has ir and much ine language 
programmer. Gravitrm's grajMcs were cre- 
ated, by Dan Diamante. 
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Lining 1. Loader program. 

5 IFA=0THENFORX=0TO13:REflDA:POK 



EX-f4 9152,A:NEJIT 



:REM+120 



Iff IFA«SiTHENA = 2:GOT03{l :REM*227 

15 IFA = 2THEtJ65 :REM*253 

20 IFA=3THEN75 :REM*9 

25 IFA=4THEN85 ;REM*24 

30 PRINTCHR$(14) : REM* 126 

35 POKES3280,2:POKES32ei ,1 :PRIN 

T"{SHFT CLR)" :REM*235 



40 PRIfJT"(10 CRSR DNsr':REH+189 
45 PRINT"{9 SPACES}"; :REM*14Sf 
50 PRINT"LOADING "; :REM*102 
55 PRINT" tCTRL 1}, "; 

:REM*195 
60 A=2:L0AD'VGRAV ML", 8,1 

: REM* 9 9 
55 PRINT" {CTRL 1 ) "; 

:REM*160 



70 A=3:L0AD"+GRAV chars", 8,1 

:REM*1 29 
75 SYS49152 :REM+241 

30 A=4 :REM*147 

85 SYS32768 :REM»44 

90 DATA169, 0,160, 0,153, 253, 116, 
153,0,11 9,200,208,247,96 

: REM* 1 5 7 



Liatlng 8, raw it run program. 

REM CREATE GRAVITRON t4L 



5 OPEN 8,8,8, "+GRAV ML,P,W" 



E8:END :REM*78 25 FOR 1=1 TO 30 :REM*181 

REM*132 15 IF LEN(A$)<62 THEN 55 30 C$=MIDS ( BS , (1*2 ) -1 , 2 ) : Fi$=LEF 



:REM*254 



T$(C$,1 ) :L$=RIGHT$(Ci,1 ) 
:REM*188 20 B$=MID$(A$,1 ,20)+MID$(A$,22, •REM*209 

10 READ A$:IF A$ = "-1" THEN CLOS 20 ) +MIDS ( AS , 4 3 , 20 ) :REM*242 35 H = VAL t i1$ > : IF HS>"9" THEN H=A I 
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GAMES 



SCIHS)-55 :REM*8S 

40 L=VAL(LJ):IF L$>"9" THEN L=A 

SC{L$)-55 :REM*136 

45 BY=H*16+L:PRINT#S,CHR$(BY)s 

:REM*67 
50 NEXT: GOTO 10 :REM»115 
55 IF LEN(A$)<21 THEN B$=A$:GOT 

16 :REM*184 

60 IF LEN(AS)<42 THEN BS=LEFTJ( 

A$,2f))+RIGKTS(A$, (LEN(A$J-21 

) ) :GOTO 70 :REM*176 

65 B$=LEFTS[A$,20)+MID${AS,22,2 

) +RIGHTS ( AS , LEN( AS ) -42 ) 

: REM* 140 
70 FOR 1=1 TO LEN(BS)/2:REM*221 
75 CS=MID5(B$, (1+2)^1 ,2):HS=LEF 

T$(C$,1 ) :LS=RIGHT$(C$,1 ) 

:REM*1 4 
80 Fi = VAL{H$) :IF [!I)"9" THEN H = A 

SC(HS)-55 :REM»56 

85 L=VAL{I,S) :IF LS>"9" THEM L=A 

SC(L$)-55 :REM»84 

90 BY=H*16+L:PRINT#8,CHR$(BY) ; 

;REM*1 4 8 
95 NEXTjGOTO 10 :REM*160 

100 REM GRAVITRON HEX DATA 

:REM*95 

101 DATA 00804C09800B0B000C0F 
9A9038DA692204A8C20 FFeFA00 
0A9FF99207E99 :REM*241 

102 DATA 207FC8C0C8D0F5A900A0 
599B8938810FAA9328D BE93A90 
38DBF9320698E :REM*127 

103 DATA 20C5eE20PD8D20FF8E20 1 
38FA9BE20D2FFAD1'6D0 29F78D1 
6D0AD1 1D029F7 :REM*206 

104 DATA 8D1 1D0A901A0009900D8 9 
900D99900DA99EeDAC8 D0F1A9A 
0A00099000499 :REM*1 53 

105 DATA 000599000699Ee06C8D0 F 
1A027A92099E0058810 FACE699 
9D05EA90A8D69 :REM*50 

105 DATA 99200E81A000AE6C99E8 B 
DC3939990D99908DAC8 C050D0F 
5A000AE6C99Ee :REM*1 8 

107 DATA E8BDC3939940D99930DA C 
8CS)78D0F5A000AE6C99 E8E8E8B 
DC39399C8D8 99 : REM* 2 6 

108 DATA e0DAC8C0A0D0F5A000AE 6 
C99E8E8E8E8BDC39399 00D8992 
0DBC8C0C8D0F5 :REM*87 

109 DATA A200E8D0FD38AD12D0C9 F 
C90F82019B1AD00DC29 10F006A 
5C5C93CD0804C :REM*12 

110 DATA SA81CE6C991005A90B8D 6 
C9960CE6B99102FA907 8D6B99A 
000A201BDC005 :REH*21 5 

111 DATA 99E005ceEaE028D0F4EE 6 
A99AC6A99B9D393C9FF D007A00 
08C6A99A96038 :REM»19 

112 DATA E9408D0706AD16D029F8 1 
86D6B998D1 6D060A993 20D2FF2 
0FF8F20F98CA9 :REM*1 25 

113 DATA 3F8D1 5D020DC8F20CD8C 2 
0E38CADA69Z8D0F99A9 008D0CD 
08D0DD0A9A08D :REM*1 54 

114 DATA 10D0A90085FBA94085FC A 
206A000A90091FBC8D0 FBE6FCC 
A10F6A9088D1C :REM*111 



115 DATA 408D2240A91C8D1F40A0 1 
FA20FA950e5FBA94085 FCA96ie 
5PDA99565FEB1 :REM*21 

116 DATA FD91FB8810F918A5FB69 4 
085FBA5FC690085FC18 A5FD692 
085FDA5FE6900 :REM*1 47 

117 DATA 8 5FEA01FCA10DAA01FB9 6 
19591FB8810F8A000B9 6197998 
044C8D0F7A900 :REM*250 

118 DATA 85FBA9C085FCAC7199B9 
399A00091FB18A5FB69 018SFBA 
90065FC85FCEE :REM*224 

119 DATA 7199AD7199C905D00FEE 7 
099AD7099C928F008A9 008D719 
94C0282A000A9 :REM*1 

120 DATA 6091FBA90085FBA96885 F 
CA207A000A90091FBC8 D0FBE6F 
CCA10F6A000B9 :REM*1 4 4 

121 DATA 7094C9FEF00799006FC8 4 
C558220B98DA007B9C2 9299F87 
B99F87F8810F4 :REM*7 

122 DATA A9E4eD1CD020F389ADBC 9 
329038D5699A8B9B292 eD04808 
D0380B9B6928D :REM*90 

123 DATA 0S80B9BA928D0780B9BE 9 
28D0e80AD0780eD23D0 AD06808 
D22D0AD03808D ;REM*14 

124 DATA 1 4998D21D0AD04808D20 D 
0A000AD0B809900D899 00D9990 
0DA99E8DAC8D0 :REM*205 

125 DATA F1A90AA0009948DBC8C0 7 
8D0F8A90EA0279948DB 8810FA7 
8A9D0eD12D0AD :REM*Z7 

126 DATA 1 1D0297F8D1 1D0A9818D 1 
AD0A9538D1403A98BeD 1503200 
DSAAD0EDC29FE :REH+41 

127 DATA 8D0EDCAD1ED05BAD12D0 3 
8C9FB90FaAD7D99D07E 209FFFA 
5C5C903D00F20 :REM*1 6 

128 DATA 1090209FFFA5C5C903D0 F 
7201090C904D0034C09 80AD679 
9F01 0CEBF93D0 ;REM*1 1 2 

129 DATA 05A9018DBD93206C8F4C 5 
A81AD27D0290FC905D0 28AD689 
92906C906D01F :REM*122 

130 DATA 205E8FAEBC932069BECA 1 
0FA20318ECEA692D008 A9038DA 
692201 38F4C5A :REM*71 

131 DATA 81ADBD93F009204A8C20 9 
0994C09e0208534AD7D 99D0034 
CI 183AD7C9 9C9 :REM*144 

132 DATA 01F00FC903F031C904F0 4 
EC902F0614C2484EEe2 99AD829 
9C978D01918AD :REM*55 

133 DATA ei9969788D8199AD8099 6 
9008D8099A9008D8299 2085804 
C2484CE829910 :REM*174 

134 DATA 1 93eAD81 99E9788D8199 A 
D8099E9008D3099A977 8D82992 
0AB8C4C248438 :REM*37 

135 DATA AD81 99E9788D8199ADa0 9 
9E9008D809920AB8C4C 24841 8A 
D8 199 69 788081 :REM*250 

136 DATA 99AD809969008D809920 8 
58CAD7B9949048D7B99 200D8AA 
D1 2D0C909D0F9 :REM*222 

137 DATA AD7C99C901F00FC902F0 1 
6C903F01DC904F0244C 75e4A90 
78D7F99Z0F78B :REM*56 



138 DATA 4C75e4A9078D7E992004 8 
C4C7584A9008D7F9920 F78B4C7 
S84A9008D7E99 :REH*51 

139 DATA 20048CAD18D049108D18 D 
0A9008D7D994C1 183AD 1 ED08D6 
899AD01D038C9 :REM*78 

140 DATA 7D904DADe8992920D00E A 
D68992941C941D005A9 018D679 
9A9 058D27D0AD :REM*218 

141 DATA 68992920D00EAD6Q9929 
9C909D005A9018D6799 AD68992 
921C921D01A20 :REM*57 

142 DATA 7F8DCE6D99D012A9058D 6 
D99A921BD0BD44CEA84 A9018D2 
7D0A920BD0BD4 :REM*ie0 

143 DATA AD5699C903D01DAD1 5D0 
9808D1 5D020229DCE54 99D00DA 
D149949018D14 :REM*251 

144 DATA 99A9078DS499AD5699D0 1 
FAD15D00940aDl 5D020 009DCE5 
599100FA93B8D :REH*88 

145 DATA 5599A91 18D12D4A9108D 1 
2D438ADBC93C903903C AD5799F 
01 618AD04D069 :SEM*28 

146 DATA 018D04D09008AD10D049 
48D10D04C6e8538AD04 D0E9018 
D04D0B008AD10 :REM*57 

147 DATA D049048D10D0AD5B99F0 
6CE05D04C7685EE05D0 AD6699F 
01 1AD00DC2903 :REM*213 

148 DATA C903F008A9818D04D44C 9 
185A980eD04D4ADF87B 8DFC7B8 
DFC7FCEBE93CE :REM*206 

149 DATA BE93CEBE93100CA96338 E 
D59998DBE93203D89AD 6699F01 
7AD00DC2902D0 :REM*1B2 

150 DATA 1020548DCE6E99D008A9 
48D6E99206989209589 CE7999D 
04BCE7799AD77 :REM*ri 1 

151 DATA 99CD5A99D00620979C8D 7 
799AC7799B9F1988D79 994A38E 
9038D729920E3 :REM*101 

152 DATA 8CAD10D029040A48AD10 D 
029F78D10D0680D10D0 8D1 0D0A 
9018D7899AD04 :REM*28 

153 DATA D08D06D0AD05De>8D07D0 C 
E7299D008AD15D00908 8D1 5D0A 
C7799B9A998F0 :REM+155 

154 DATA 13C901F00920C58720C5 8 
74C488620DA8720DAa7 B9BB98F 
013C901F00920 :REM*144 

155 DATA EF8720EF874C608620FA 8 
720FA87AD7699D037AD 00DC291 
0F0034C008720 :REM*224 

156 DATA CD8CA98iaD1 2D4A9808D 1 
2D4ADF87B8D7599A8B9 F19B4A4 
A8D7399A9018D :REM*21 6 

157 DATA 7599AD00D08D02D0AD01 D 
0aD03D0CE7399D008AD 1 5D0090 
28D1 5D0AC7599 :REM*70 

158 DATA B9A998F02FC901F0173B A 
D02D0F9CD98BD02D0B0 0aAD1 0D 
049028D10D04C :REM*1 76 

159 DATA E085AD02D01879CD988D 
2D0900eAD10D049028D 1 0D0B9B 
B98F01BC901F0 :REM*34 

160 DATA 0D3eAD03D0F9DF98aD03 D 
04C00871BAD03D079DF 9eBD03D 
0AD03D038C9CD ;REH*69 
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161 DATA 90(l620CD8C4C3C8738AD 
3DOC929B00620CD6C4C 3C87AD1 
0D02902F00EAD :REM«237 

162 DATA 02D038C9459011 2ISCD8C 4 
C3C87AD02D038C90FB0 0320CD8 
CCE8399D049A9 :REM*113 

163 DATA 078D8399AD6699F00DAD 
0DCA82904F021 982908 F0034C8 
A87EEF87BEE:F8 :REM*1 1 

164 DATA 7FADFB7B3BC9119021A9 
ieDF87F8DFe7B4C8A87 CEF87FC 
EF87BADF87B38 :REM*75 

165 DATA C901B00aA9108DF87F8D F 
87BAD6699F02FAD00DC 2901 D02 
82054aDACFe7B :REM*107 

166 DATA 8C8F99CE8D99D009B951 9 
88D8D9920058eCE8E99 D00CACF 
87BB973988DBE :REM*65 

167 DATA 99209B8B206E88200ie9 6 
03flAD06D0F9CD988D05 D0B008A 
D10D049088D10 :REM*1 36 

168 DATA D060AD06D0ie79CD988D 
6D09008AD10D0490e8D 10D0603 
6AD07D0F9DF98 :REM*151 

169 DATA 8D07D0601BAD07D079DF 9 
B8D07D060ACF87BB98S 98A8290 
8D006982904D0 :REM+61 

170 DATA 2D60AD8499C901F010CE 8 
599D00SA901BD8599A9 0280849 
960EE8S99AD85 :REM*168 

171 DATA 99C90AD00AA9098D8599 A 
9008D849960AD8499C9 02F010C 
Ee599D005A901 :REM*124 

172 DATA 8D8599A9018D849960EE 8 
599AD8599C90AD00AA9 098D859 
9A900eD849960 :REM'37 

173 DATA AD8499C902F005C901F0 1 
060CE8699D009AD8599 8D86992 
0A28A60CE8699 :REM*87 

174 DATA D009AD85998D86992039 8 
A60ACF87BB99798A329 01D0069 
82902D02D60AD :REM+35 

175 DATA B799C901F010CE8999D0 
5A9018D8999A9028D87 9960Eba 
999AD8999C90A :REM*96 

176 DATA D00AA9098D8999A9008D 8 
79950AD8799C902F010 CE8999D 
005A9018D8 999 : REM* 98 

177 DATA A9018D879960EEe999AD 8 
999C90AD00AA909eD89 99A9008 
D879960AD7A99 ;REM*105 

178 DATA 49018D7A99AD8799C902 F 
005C901F0] 560CE8B99 D00EAD8 
999eD8B99AD7A :REM*92 

179 DATA 99F00320068B60CE8B99 D 
0FAAD89998D8B99AD7A 99F0032 
02FeB60AD8899 : REM* 57 

180 DATA C901F010CE8A99D005A9 
18DeA99A902aD889960 EE8A99A 
D8A99C90AD00A :REM*184 

1B1 DATA A9098D8A99A9008D8899 6 
0AD8899C902F010CE8A 99D005A 
90ieD8A99A901 : REM* 168 

182 DATA 8D889960EE8A99AD8A99 C 
90AD00AA9098D8A99A9 008D889 
960AD8899C902 :REM*141 

183 DATA F005C901F02A60CEec99 D 
023AD8A998D8C99CE09 D0EE01D 
0AD01D038C9S7 :REM»56 



184 DATA 900FA9878D01D0A98EBD 
9D0A9018D679960CE8C 99D0FAA 
D8A998D8C99EE :REM*106 

185 DATA 09D0CE01D0AD01D038C9 7 
3B00FA9738D01D0A9A2 8D09D0A 
9018DBE9 360A9 : REM* 4 3 

186 DATA 3F8D02DDA9C68D00DDA9 E 
D8D18D0A9D08D16D0A9 138D11D 
060A000201 18C :REH*1 36 

187 DATA A200A0002000C018A5FB 6 
92885FBA90065FCB5FC 1 8A5FD6 
9 7aS5FDA90065 ;REM*1S5 

188 DATA FE85FEE8E014D0DC60AD 7 
D99D06318AD0ED06901 8D0ED09 
008AD1 0D04 980 : REM* 15 

189 DATA 8D10D0ieAD0CD069018D 
CD0900eAD10D049408D 10D018A 
D0AD069018D0A :REM*27 

190 DATA D09008AD10D049208D10 D 
018AD04D06901BD04D0 900eADl 
0D049048D10D0 :REM+35 

191 DATA EE7F99AD7F99C908D00D A 
9008D7F99A9038D7C99 BD7D996 
0AD7D99D05E38 :REM*185 

192 DATA AD0ED0E9018D0ED0B008 A 
D1 0004980801 0D038AD 0CD0E90 
18D0CD0B00aAD :REM*87 

193 DATA 10D04940eD10O038AD0A D 
0E9018D0AD0B008AD10 0049208 
D10D038AO04D0 :REM*1 10 

194 DATA E9018D04D0B008AD10D0 4 
9048D10D0CE7F99100D A9078D7 
F99A9018D7C99 ;REH*217 

195 DATA 8D7D9960AD7D99D023EE 
FD0EE0DD0EE0BD0EE05 D0EE7E9 
9AD7E99C908D0 :REM*1 41 

196 DATA 0DA9008D7E99A9048D7C 9 
98D7D9960AO7D99D01E CE0FD0C 
E0DD0CE0BD0CE : REM* 1 1 4 

197 DATA 05D0CE7E99100DA9078D 7 
E99A9028D7C998D7D99 60AD1 9D 
08D1 9D02901D0 :REM*97 

198 DATA 034C31EAAD1 2D0C9FDB0 4 
2A0FD8C1 2D0AD18D029 F0090A8 
D18D0AD1 10029 :REM*98 

199 DATA F81 369078011 D0AD16D0 2 
9Fei 86903801 6D0A900 8D21D0A 
0079927D088D0 :REM*204 

200 DATA FA8D25D0A9FF8D1BD0A9 
58D23D04CF18BAD1 1D0 1829F86 
O7E998DnD018 :REM*96 

201 DATA AD1 5D029F86D7F998D16 D 
0AD18D029F0090C8O18 O0A0D08 
C12D0AD03808D !REM*8 

202 DATA 21D0A007B90D999927D0 8 
8D0F7A90F8D25D0A900 8D1BD0A 
D07808O23D0Sa :REH*99 

203 DATA A86BAA6840AO16D029F8 1 
86D7F99aDl 6D060AD1 1 D029F81 
a607E998Dl 1D0 :REM*104 

204 DATA 60A9EF85FDA918e5FEA9 
0a5FBA9781B6D7B9985 FC1 aA5F 
D6D829985FDA5 :RE>1*141 

205 DATA FE690085FE18A5FD6D81 9 
985FDA5FE690085FEia A5FE6D8 
099e5FE60A980 :REM*112 

206 DATA 8D1AD078A9318D1403A9 E 
A8D1 5035aA9003D20D0 8D21D0A 
D0EOC0901 8D0E :RBM*57 



207 DATA DCA9008D15D0A9978D00 D 
DA9158D18D0A91B8D1 1 D0A9C88 
D16D060AO8099 :REM*239 

208 DATA C918F007AD8099C917D0 1 
738ADei99E9703O8199 AD8099E 
900aDa09938E9 :REM*70 

209 DATA 178Da09960ADa0993005 A 
D8099D01718AD819969 708D81 9 
9ADB09969008D :REM*13 

210 DATA 8099ia69178Da09960AD 1 
0D029FDBD10D0AD15D0 29FD8D1 
5D0A9008D7699 :REM*1 25 

211 DATA 60AD10D029F78D10D0AD 1 
5D029F78D15D0A9008D 789960A 
9018D6699A9E4 :REM*40 

212 DATA 8D987B8D987FA000A2E0 8 
A99997B99997FE8C8C0 05D0F3A 
005A9E899987B :REM*233 

213 DATA 99987FC8C01ED0F5A9E4 9 
9987B99987FC8C02BD0 F5A0279 
9707B99707F88 :REM*37 

214 DATA 10F7A0188C7499ACBF93 F 
00BA9FD99B77B99B77F 88D0F76 
0CE6F99D025A9 :REM*196 

215 DATA 0A8D6F99AC7499D006A9 
0aD66996038B99D7BE9 01C9E4D 
005CE7499A9E9 :REM*31 

216 DATA 999D7B999D7F60A9018D 6 
699AC7499C018F023A9 208D07D 
4A94EaD08D4B9 :REM*82 

217 DATA 9D7B1 86901 C9E9D008EE 7 
499AC7499A9E5999D7B 999D7F6 
0A9308D07D4A9 :REH+2S3 

218 DATA 758D08D46020F28OA90F 8 
D18D4A9108D00D4A927 8D01D4A 
9228D05D4A921 :REM*1 48 

219 DATA aD06D4A91iao0CD48D0D D 
4A9188013D4A9888D1 4 D4A9Aa8 
D0EO4A961 aD0F :REM*218 

220 DATA D460A01 8A9009900D4S8 1 
0FA60A000A2EC8A994A 7B994A7 
FC8E8E0F1D0F3 :REM*241 

221 DATA A000A2EA8A99577B9957 7 
FC8EaE0F1D0F3604A4A 4A4A602 
90Fia69F199S0 :REM*46 

222 DATA 7B99S07F60F8ADBA9338 C 
OC293902CD01 4ADB993 38CDC1 9 
39021 D009ADBe :REM*199 

223 DATA 9 338COC093901 6ADB993 8 
DCl 93ADB8938DC093AD BA9380C 
293D820C5eEOe :REM*41 

224 DATA 60F818ADB8936DBB93eD B 
89 3901 4AOB9931 86901 8DB99 39 
00918ADBA9369 ;REM*185 

225 DATA 0ieDBA93D8ADB8932020 B 
EA00420258EADB893A0 0520258 
EADB9932020eE :REM*62 

226 DATA A00220258EADB993A003 2 
0258EADBA9320208EA0 0020258 
EADBA93A00120 :REM*7B 

227 DATA 25aE60ADC09320208EA0 1 
32025eEADC093A01420 25eEADC 
1932020aEA011 :REM*a3 

228 DATA 2025BEADC193A01 22025 8 
EADC2932020aEA00F20 258EADC 
293A01020258E :REM*1 53 

229 DATA 60A000B908991 869E099 6 
67B99667FC8C005D0EF 60AD569 
9D00AADBF93C9 :REM*205» 
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230 DATA f)3F003EEBF93201B90EE B 
C93ADBC930A8D5999F8 1 8ADBB9 
36901 aDBB93D8 :REM*32 

231 DATA ADBB93290rA01D20258E A 
DBB9320208EA01C2025 8E60A9F 
F8D0FD4A9808D :REM*2S1 

232 DATA 12D4AD1BD460A980e5A3 A 
94485A'J20D48F4C8A8F 20D48FA 
90085A3A94085 :REM+1 1 3 

233 DATA A4ACF87B18ASA3694085 A 
3A5A46900a5A488D0F0 20CDec2 
0E3aCA03FA200 !REH*79 

234 DATA 8E20D0EeD0FA20508F31 A 
391A38810F0A03FA200 BE20D0E 
8D0FAB1A3D006 :REH*16 

235 DATA 861 0F34CBBBF4C8A8F60 A 
00FB9A8939900D08810 F7208C9 
28D04D0208C92 :REM*128 

236 DATA 8D05D060A9028D01 D4BD 
8D48D0FD4A9228D05D4 8D06D4e 
D0CD48D0DD48D :REM*102 

237 DATA 13D48D14D4A9818D04D4 8 
D0BD48D12D460A000B9 1 599C9F 
FF007995399C8 :REM*1 20 

238 DATA 4C019060A000A264C8D0 F 
DE8D0FA60A9008D18D4 204A8CA 
99320D2FFA908 :REM*187 

239 DATA 8D5C99A000AD5C999900 1 
0CE5C991005A9088D5C 99C8D0E 
DA9EF85FBA918 :REM*2 

240 DATA 85rCA9FFA000A22391FB C 
8D0FBE6FCCA10F6EE5E 99AD5E9 
9C912D023A9EF :REM*1 51 

241 DATA 85FBA91885FCA95F85FD A 
93085FEA000A20BB1FB 91FDC8D 
0F9E6FCE6FECA :REM*121 

242 DATA 10F260208D904C5A90AC 5 
E99A98e85FBA917B5FC E6FC1 8A 
SFB6968e5FDA5 :REM*67 

243 DATA FC69 008 5FC8BD0EEA900 8 
D629920889120E49018 A5FB690 
ie5FBA5FC6900 :REM*216 

244 DATA 85FCA001 202E92A838A5 F 
BE97885FBA5FCE900eS FC88D0F 
0AD629938C978 :REM*137 

245 DATA B0034CAF9060A002202E 9 
28D5F99A002aC6099EE 6099AC6 
099202E92C9FF :REM*1 36 

246 DATA F02B38E901CD5F99D03E 1 
86901 8D5F99AAA000AD 6599C9F 
FD0038A91FB18 :REM*144 

247 DATA A5FB6901 a5FBA5FC6900 8 
5FC4CF190A000202E92 AA186D6 
2998D62998A4A :REM*201 

248 DATA 1 B65FB85FBASFC690085 F 
C6018690ieD5F9918A5 FB69788 
5FBA5FC690085 ;REM*166 

249 DATA FCAC60998e202E928D61 9 
9AC6099202E9238ED61 998D619 
9 3eA9 20ED6199 :HEM*39 

250 DATA 8D619938A5FBED6199e5 F 
BA5FCE9008SFC4CF190 207492A 
002202E9ZeD5F :REM-120 

251 DATA 99A0028C6099A9FF8D65 9 
9A5FB8D6399A5FC8D64 99EE609 
9AC6099202E92 :REH*18 

252 DATA C9FFF02B38E901 CDSF99 
02E1 86901 8D5F99A000 B1 FBC9F 
FF005A9008D65 :REM*200 



253 DATA 991 8A5PB6901 85FBA5FC 6 
90085FC4CA791AD6399 eSFBAD6 
49985FC601869 :REM+224 

254 DATA 018D5F99iaA5EBe97885 F 
BASFC690085FCAC6099 e8202E9 
28061 99AC6099 :REM*29 

255 DATA 202E9238ED61 998D6199 3 
aA920ED61998D619938 A5FBED6 
19985FBA5FCE9 ;REM*30 

256 DATA 0085FC4CA791A9S08DA7 9 
2A9928DA8 92AE5D99BD A992186 
DA7 9 28DA7 92AD : REM* 108 

257 DATA A89269008DAe926CA792 B 
9CA9260B9DC9260B9EC 9260B9F 
F9260B90B9360 :REM*53 

258 DATA B9379360B9469360B95D 9 
360B996936020ec92AC 5B99B90 
01 0CD5D99F0F2 :REM*17B 

259 DATA AC5B99B900108D5D9960 A 
9FF8D0FD4A9808D12D4 AD1BD4a 
D5B9960A9EF85 :REM*30 

260 DATA FBA9ia85FC6003000000 
4080C1014181C20090B 080C020 
C09060A0F0A0E :HEM*1 45 

261 DATA 0F090F0901 001 2000113 1 
4150701FF0001020304 0506072 
1222324Z526FF :REM*166 

262 DATA 0A01090A0B0C0D0E0F10 1 
1 121 31 42EFF0701 1516 171B191 
A1B1C1D343536 :REM+156 

263 DATA 3738393AFF0501 4041 42 4 
34445466263FF1401 46 4748494 
A4B4C4D4E4F50 :REM*1 4 

264 DATA 51525354555657585965 6 
6676a696A6B6C6D6E6F 7071727 
3747576777879 :REM*58 

265 DATA FF0501 3A3B3C3D3E3F5A 5 
B5C5D5E5FFF06027F80 6182838 
485A0A1A2A3A4 :REM*1 35 

266 DATA A5C0C1C2C3C4C5C6FF1 1 
2e58788898A8B8C8D8E 8F9091 9 
29394959697A7 :REM*166 

267 DATA A8A9AAABACADAEAFB0B1 B 
2B3B4B5B6B7B8C7C8C9 CACBCCC 
DCECFD0D1D2D3 :REH*102 

268 DATA D4D5D6D7D8FF0601 8889 B 
ABBBCBDBEBFD9DADBDC DDDEDFF 
FAE73AE730000 :REM*124 

269 DATA 0000AEA21 44S00000AC8 
0000000000032030000 00020A0 
8070D05030E06 :REM»59 

270 DATA 0A0409020A0807605255 4 
E604D4147415A494E4S 6050524 
F55444C596050 :HEM*80 

271 DATA 524553454E5453606E6E 6 
E6E6E60475241 564954 524F4E6 
0425960434841 ;REM*62 

272 DATA 524C4553604F52435554 5 
4605749544860475241 5048494 
3536042596044 :REM*32 

273 DATA 41 4E604449414D414E54 4 
56E60434F5059524947 4854607 
1797878604849 -REM»68 

274 DATA 5460335041 4345604F52" 6 
0464952456042555454 4F4E605 
04F5254607260 :REM»93 

275 DATA 544F60504C4159G06E6E 5 
E6E6EFFC0CFCFC3CFCF CFCFCCC 
CCCCCCCCCCCF3 ;REM*226 



276 DATA C0CFCFCFC3CFCFC0CFCF C 
FCFCFCFCFC0FFFFFFFF FFFFPFF 
F808080808080 :REM*38 

277 DATA e080A0A0A0A0A0A0A0A0 A 
BA8A8A8A8ABA8A8AAAA AAAAAAA 
AAAAA00000000 :REM*226 

278 DATA 000000003333333F3333 3 
3333F0C0C0C0C0C0C3F 0F30303 
00F0303 3C0F30 :REM*1 18 

279 DATA 30303030300F0C333333 3 
333330C3C3333333F3C 33333F3 
030303C30303F :REH*242 

280 DATA 2A2222222222222A0B2B 
B0a0a08082A2A020202 2A20202 
A2A0202022A02 :REM*212 

281 DATA 022A222222222A020202 2 
A2020200A02022A2A20 20202A2 
2222A2A020202 :REM*239 

282 DATA 020202022A2222222A22 2 
22A2A2222222A020202 3030303 
03030303F3333 :REM*176 

283 DATA 33333333330CFFFFBFBF A 
BFFFFFFFE0000000000 0018000 
0180001BD8001 :REM*158 

284 DATA FF8001 9980001 8000000 
0000000000000000000 0000000 
C00031S0007B6 tREM*5 

285 DATA 0007FE0006CE00000C00 
00000000000fi0000000 0000000 
00000000300E0 :REM*31 

286 DATA 0703C007FE00008C0003 3 
8000000000000000000 0000000 
000000780000F :REM*198 

287 DATA 81E00FFF0003Fe0003F0 



0000000000780 :REM*215 

288 DATA 0007E00007FFE007FFF0 
7E00000000000000000 0000000 
0000000018000 :REM*78 

289 DATA 01E00007E00007FE0007 F 
FC00000700000000000 0000000 
0000000300000 :REM*61 

290 DATA 380006300007F00003FE 
00007800001E0000000 0000000 
0000000000000 : REM* 72 

291 DATA 0000010003230003FF00 
33e00001C00000E0000 0000000 
0000000000000 :REM+249 

292 DATA 00000000180001998001 F 
F8001BDB0001 800001 8 0000000 
0000000000000 :REM*167 

293 DATA 000000000000800000C4 C 
000FFC0001CC0003800 0070000 
0000000000000 :REM*245 

294 DATA 00000000000C00001 C00 
00C60000FE0007FC001 E000078 
0000000000000 :REM*231 

295 DATA 00000000000000000000 
ie00007800007E0007F E003FFE 
00E0000000000 :REM*186 

296 DATA 00000000000000000000 
00000000001 E00007E0 07FFE00 
FFFE00007E000 :REM*238 

297 DATA 00000000000000000000 
000000000000001E007 eiF000F 
FF0001FC0000F :REM*33 

298 DATA C0000000000000000000 
0000000000000000000 000700C 
003C0E0007FE0 :REH*8 
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GAMES 



299 DATA 003D000f!lCC000000000 
0000000000000000000 0030000 
018C0006DE000 :REM*155 

300 DATA 7FE00073600030000000 

! 0000000 

:REM*9 

301 DATA 00000000000000000028 
000AA000296800A55A0 3E96BCC 
FAAF3FFEBFFFF :REM*S2 

302 DATA FFFFFFFFFF3FFFFC0FFF F 
0003C00000000000000 0000000 
000200002AA00 :REM*134 

303 DATA 2AAAA802AA800C20C030 3 
0301555507FFFF4S555 547FFFD 
D7F57DD7F7FDD :REM*107 

304 DATA 7FSFDD7P7FDD7F7FDD1 5 5 
5543FFFFC3FFFFC3FFF FC00000 
0030000000000 :REM*237 

30s DATA 00000000000000000000 
0000000280000BE0002 D7300B5 
5B02D55782D5S :REM*60 

306 DATA 780B55E002D78000BE00 
0260000000000000000 0000000 
0000000008400 :REM*1B7 

307 DATA 00000000000000000000 
000000000AAS0020020 0B3F082 
0C0C223043223 :REM*1 54 

308 DATA 11 322311 32230-1322000 C 
2083F0802002000AA80 0000000 
0000000000000 :REM*1 12 

309 DATA 00007404040403020102 
3040404030201020304 0401010 
2030404040302 :REM*176 

310 DATA 01020304040403020180 8 
0080808080808088004 0404040 
4040480800101 :REM*2 

311 DATA 01018002020202020202 8 
0010101010000010101 0101010 
100020202 0202 :REM*194 

312 DATA 02020000020202020001 
1010101010100020202 0200000 
2030405040302 :REH*226 

313 DATA 00020304050403020000 
3030201000102030303 0201000 
1020303190B0D :REM*54 

314 DATA 1 115191 6141 10F1 11416 1 
915110i30BBlFD91FDCB 1B101C1 
01B0101050100 :REH*138 

315 DATA 06020003050000000000 
4000800000000000000 0000010 
0000300070C05 :REM*194 

316 DATA 040A000000001 9000008 
0190100000004041770 0007020 
4040200040904 :REM*207 

317 DATA 09040401FF0305000000 
0000400080000000000 0000000 
0010000030007 :REM*203 

318 DATA 0C05000A000000001 900 
0080019010000000404 1770000 
7020404020004 : REM* 31 

319 DATA 090409040401 A9008DAA 9 

Llating 3. Charactor Ganarator progrsin. 

HEM CREATE GRAVITRON CHARACTE 
RS :REM+236 

5 OPEN 8,S,8,"+GRAV CHARS, P,W" 

:REM*28 

10 READ A$:rF A$="-l" THEN CLOS 

E8!END :REM*78 



D8DA39DA90B8DA49DA9 028D20D 
0A900OD21D0A9 :REM*1Q1 

320 DATA 9320D2FF20E7FF203D9C 2 
0339CA90020D5FF20B7 FFC940F 
00320579CA993 :REM*195 

321 DATA 20D2FFA901A0009900D8 9 
900D99900DA99E8DAC8 D0F1A00 
0B9AC9DF00720 :REM*245 

32 2 DATA D2FFC8 4CDE9920C7'9BA0 
3B1FD8DA59DC8BTFD8D A69DC8n 
1FD8DA79D2043 :REM*176 

323 DATA 9BCEA49DF00BADA39DD0 1 
B20D89B4CED99A000B9 08gEF00 
720D2FFC84C1 5 ;REM*166 

324 DATA 9A206B9B204F9C60A5FD 8 
DAe9DA5FE8DA99DCEA4 9DF026A 
93085FDA95085 :REM»35 

325 DATA FEA93685A3A96085A4A0 
5D1FD91A38810F9CEA4 9DF008A 
00520F39B4C49 :REM*77 

326 DATA 9AADA8 9D85FDADA99D8 5 F 
EA002A90191FD8810FB A003ADB 
A9391FDC8ADB9 :REM*1 49 

32 7 DATA 9391 FDC8ADB89391 FD20 6 
B9BA000B9D39DF00720 D2FFC84 
C889AADAB9DeS :REM*0 

328 DATA FDADA9 9D8 5FEE8D0FDC8 C 
080D0F8206B9BACAA9D ADAS9D8 
5FDADA99De5FE :REM*246 

329 DATA Bl FD498091 FDAD00DC29 1 
0F063AD00DCC97EF00F C97DF01 
DC97BF029C977 :REM*239 

330 DATA F0384C9E9A18B1FD6901 2 
97FC91BD002A90191FD 4C9E9A3 
8B1FDE901 297F :REM*189 

331 DATA D002A91A91FD4C9E9AB1 F 
D297F91FDCEAA9D1005 A900BDA 
A9D4C9E9AB1FD :REM*230 

332 DATA 297F91 FDEEAA9DADAA9D C 
903D005A9028DAA9D4C 9E9AACA 
A9DADA89D85FD :REM*69 

333 DATA ADA99DB5FEB1FD297F91 F 
D204F9C206B9B20189C 50F8ADB 
A9338CDA59D90 :REM*28 

334 DATA 1CD01 4ADB9933aCDA69D 9 
0nD009ADB8 93 38CDA7 9D9006A 
901BDA39DD8D8 :REM*218 

335 DATA 6020C79BA209200E9C20 D 
e9BCA10F720C79BA209 A003B1F 
D8DAB9D20208E :REM^235 

336 DATA C820479CADAB9DC82047 9 
CA004B1FD8DAB9DC8C8 20208E2 
0479CADA89DC8 :REM*41 

337 DATA 20479CA005B1FD8DAB9D 2 
0208EC8C8C820479CAD AB9DC82 
04 79C20D8 9BCA : REM* 170 

33B DATA 1 0B860A92785FBA90585 F 
CA900B5FDA96085FE60 ieA5FB6 
92685FBA90065 :REM*30 

339 DATA FC85FC1 8A5FD590685FD A 
90055FE85FE6038A5A3 E906e5A 



15 IP LEN(A$)<62 THEN 55 

;REM*254 

20 BS=HlD$tAS,1 ,20)+MIDS(AS,22, 

20}+MIDS(AS,4 3,20) :REM'24 2 

25 FOR 1=1 TO 30 :REM*181 

30 CJ=M1D$(B$, (I*2)-l ,2) :HS=LEF 



3A5A4E90085A4 ;REM*8 

340 DATA 38A5PDE90685FDASFEE9 
085FE60A002B1FD91FB 8S10F96 
020E7FF203D9C :REM+129 

341 DATA 20339CA90085A5A96085 A 
6A23DA060A9AS20DBFF 60A90BA 
23aA09E20BDFF :REM*1 40 

342 DATA 60A900A208A0FF20BAFF 6 
018290F693091FB60AD 00DC291 
0D0F96020719C :REM+216 

343 DATA A200A000BD9D9D990060 E 
eC8E006D002A200C03C D0EE60A 
901A208A00F20 : REM* 147 

344 DATA BAFFA90020BDFF20C0FF A 
201 20C6FF20CFFF2490 50F920C 
CFFA901 20C3FF :REM*204 

34 5 DATA 60AD10D02 904D00C38AD 
0D0CD04D090034CD59C 38AD01D 
0CD05D09010A9 :REM*58 

346 DATA 008D57998D5899A908BD 5 
A99A90D60A9008D5799 A9018DS 
899A90C8D5A99 :REM*100 

347 DATA A9n 6038AD01 D0CD05D0 9 
012A9018D5799A9008D 5899A90 
48D5A99A90960 :REM*246 

348 DATA A901 BD57998D5899A900 8 
D5A99A905601BAD0CD0 AC77997 
9CD9e8D0CD090 : REM* 4 2 

349 DATA 08AD10D049408D10D018 A 
D0DD079DF988D0DD060 CE5399F 
00160A9038D53 :REM*245 

350 DATA 99AD10D02980D01DAD0E D 
038C9E0B01 538C97C90 1038AD0 
FD0C9AFB00B38 :REM*223 

351 DATA C94B900320529D50CEBE 9 
3CEBE93CEBE93AD1499 4901 8D1 
49938AD00D0CD : REM* 185 

352 DATA 0ED090034C869D38AD01 D 
0CD0FD09007201 68820 A988602 
0168820D58860 :REM*146 

353 DATA 38AD01D0CD0FD0900720 4 
28820A9886020428820 D588600 
1010100000000 :REH*141 

354 DATA 0000000000000000058E 2 
02020494E5055542059 4F55522 
0494E49544941 :REM*167 

355 DATA 4C532057495448204A4F 5 
9535449434B000D0D0D 0D0D0D0 
D0D0D0D0D0D0D :REM*2S1 

356 DATA 0D0D0D0D0D0D0D202020 2 
02020594F55204841 56 45204D4 
1444520544845 :HEM*4 

357 DATA 20544F502054454E2100 
D0D0D0D0D0D0D0D0D0D 0D0D0D0 
D0D0D0D0D0D0D : REM* 120 

358 DATA 20202020202020202020 2 
020204E4F54204F4E20 544F502 
054454E004030 :REM*87 

359 DATA 3AS44F5054454E4853 

: REM* 2 4 

360 DATA -1 :REM*218 



TS(C$,1) :LS=R1GHT$(CS,1 ) 

:REM*209 
35 H=VAL{HS):1F HS>"9" THEN H=A 

SC(H$)-55 :REM*85 

40 L=VAL(L$):IF LS>"9" THEN L=A 

SC(LS)-55 :REM*136 



SrKCIAl.ISSUK IIIW! • RUN 73 



GAMES 



H=VAL(H$) : 
SC(H$)-55 
L=VAL(L$) : 
SC(L$)-55 



BY=H*16+L:PRINTy^8,CHR$(BY) ; 

:REM*67 
NEXT: GOTO 10 :REM*1 15 

IF LEN(A$)(21 THEN B$=A$:GOT 
70 :REM*184 

IF LEN(AS)(42 THEN B$=LEFT$( 
AS,2a)+RIGHTS(AS, (LEN(AS)-21 
) ) :GOTO 70 :REM*17 6 

BS=LEFTS ( AS , 20 ) +MID$ ( AS, 22 , 2 
0)-t'RIGHTS(AS,LEK(A$)-4 2) 

:REM*1 40 
FOR 1=1 TO LEN(ES)/2:REM*221 
CS=M1D$(B$, (I*2)-1 ,2) :H$=LEF 
T$(C$,1 ) :L$=RIGHT$(C$,1 ) 

:REM*140 
IF HS>"9" THEN H=A 
: REM* 5 6 
IF L$>"9" THEN L=A 
:REM*84 
BY=H*1 6+L:PRINT#8,CHR$(aY) ; 

:REM*148 
NEXTrGOTO 10 :REM*160 
REM CHARACTER HEX DATA 

:REM*67 
DATA 0fi700000AA55002A1500 
0806A1 5259441010085 DF3C3F5 
SS5440055FA00 :REM*187 
DATA 0157D7C100409F2A6F6F 8 
FCB000000FC6B0500F0 0000000 
0C07F6A000000 :REM*74 
DATA 000000C0A00000000000 
0000000000000000100 0000000 
000A05A050000 :REM*14S 
DATA 0002092490400001 2A55 
0020A259040A8551F7A 7F55000 
0005 5Fl-;00DA6 5 : REM* 7 5 
DATA 60600A540000AA550^00 A 
B1F1C1C70601F05FF55 701C1F0 
58040F07F551C :REM*247 
DATA F755000000FF5507FD55 
0000000F850F0S00000 0000000 
0000000000000 :REM*248 
DATA 01550000000000005555 
71F1F070000AA55F6FD 00C0000 
0AA55AA550000 :REM»247 
DATA 000A954000C070700000 F 
C570100000000000000 FF55000 
0000000000000 :REM*202 
DATA 00000000000000000000 



45 

50 
55 

60 



65 

70 
75 

60 
85 
90 

95 

100 

101 
102 
103 
104 
105 
106 
107 
108 
109 



)4000000 :REM*72 

110 DATA 00000000410000000000 
000C1 01 000000000000 C2C0000 
000000000BF2A :REM*119 

111 DATA 04000000000000BC1 400 
0000000000000000000 0000000 
0000000000000 :REM*121 

112 DATA 00000000000000000000 
0000000000000000000 0000000 
0000000000000 .■REM*48 

113 DATA 00000000000000000000 6 
0180000000000000000 0000000 
0000000000000 :REM*220 

114 DATA 00000000000000000000 



116 DATA F0701A55000000000001 A 
65800000i3007070701C 0400000 
0000000000000 :REH*247 

117 DATA 0A55000000000000AA55 
0000000000AA9570000 000000A 
B5 7F1 00000000 :REM«1 13 

118 DATA 0000FC57001 51 5010505 
100006A7FF0FFAA5500 AAFFC00 
00581601ABFFF :REM*117 

119 DATA 0005504102A9AA001550 
2AA5500FF0A4B0AAB55 000000C 
0C0C0C0000000 :REM*1 65 

120 DATA 00000000000002A90000 
0000209A4500000000A A550000 
000000000AA55 :REM*1S1 

121 DATA 075F0000000055FFFE00 
000000055FF80000000 0000A8D 
6010000000000 :REM»144 

122 DATA 02A9540000000000a06A 1 
400000000000AA55000 0000000 
0AA5515000000 :REM*81 

123 DATA 0000FFAA550000000000 C 
0BFAA1 50000000000C0 A05C000 
0000000000000 :REM*220 

124 DATA 00000000000003A90000 
0000000FF5500000000 0000FC5 
7000000000000 ;REH*5 

125 DATA 00FC0924900002090400 
00000AA550000000101 09A4500 
00000FFF07C15 :REM«74 

126 DATA 000101000000005570C0 C 
0000707546661410100 0000000 
0000000000000 :R£M*244 

127 DATA 00000000000005000( 
0000000540000000000 0000000 
0000000000000 :REM*219 

128 DATA 01000000000000005500 
0000000000054000000 0000000 
0000000000000 :REM*48 

129 DATA 05010101010000005554 7 
FFF7D540055540000FE 5510504 
1050000AA5641 :REH*77 

130 DATA 404000000000A0eA1500 
000000002A956060601 0000AA5 
5 000080400A25 : REM* 2 50 

131 DATA 904000000000FF556C6C 1 
80701 00C07F1 50000FD 540004F 
4540000000000 :REM*234 

132 DATA 0605000000000000AA55 
0000000000054000000 0000000 
0000000000000 :REM*9S 

133 DATA 00000100000000000000 5 



139 DATA 00000000AAFD00000000 
000FE55000000000000 8075000 
0000000000054 :REM*133 

140 DATA 00000000000000140000 
0000000001500000000 0000000 
6000000000000 :REM*203 

141 DATA 000200000000000000BC 



142 



143 



144 



145 



146 



147 



1 48 



149 



150 



1 51 



0000000000000 :REM*54 

115 DATA 00000205000000000000 A 

A5500000000000000AA 5500010 

20A2590400000 :REM*206 



152 



153 



154 



155 



156 



: REM* 190 

134 DATA 00000000000000000000 157 
0000000000000000000 0000000 
0000000000000 :REM*10 

135 DATA 00000000000000000000 158 
0000051000000000000 0055000 
000000000004 5 :REM*1 50 

136 DATA 00000000000000560000 159 
0000000FFAA00000000 0000C0F 
0000000000000 :REM*79 

137 DATA 000900000000000000A0 160 
0000000000000000000 0000000 
000A900000000 ;REM*84 

138 DATA 00000055000000000000 1 El 
05500000000000000FF 0000000 
0000000DF0000 :?!EM*1 35 



0000000000000 :REM*23 
DATA 00000000000000000000 
0000000000000000000 0000000 
0000000000000 :REM*18 
DATA 00000000000000000000 
0000000000000000000 0000550 
400000001061B :REM*68 
DATA 5505061B6CB0C1C05055 A 
AFF0055005510410410 1040005 
40241 11 111004 :REM*120 
DATA 0401B0B0BCAC6C5F0602 
00000000000C0F05A01 0000000 
0806AA5540000 :REM*43 
DATA 00002896540000000000 
0000501010100000000 FFF5F07 
F1F0501 29D755 :REM*58 
DATA 00F8DA450000F5550000 8 
0514015550000000095 6B58400 
0000005451C00 :REM*1 92 
DATA 5F0701 17SFS50000F13C F 
CF055A9681BC57B1F1F 1F5F7FF 
F5F87E1B8E0BB :REM*119 
DATA E0F855FD5F0707071757 5 
5C000C0C030C0FFGceF 6A5B1 Bl 
A1 5000000C0C0 :REM*73 
DATA FCAB9B1B000000000000 
0000001050000000000 00AA550 
00000000500A9 :REM*255 
DATA 550101071F7F0005FDEA E 
59090E5005555AA5500 0040004 
0E07A9F6 51A06 :REM*48 
DATA 000000A0FC5490901B1B 
60100000000C0FFABAA 5500000 
000FAD5554000 :REM*214 
DATA 000001 81 605A1 5050000 
55000AA555500004106 1B6F7C5 
00000B0F0C000 :REM*212 
DATA 00000000150000000000 
0004100000000000000 8269140 
000000000AA55 :REM*227 
DATA 00000000000094905000 
10 0000000 
:REM*71 

DATA 1F0B0F0B0B0601 000000 
00000C0BC6F00000000 0000000 
0060100000000 :REM*135 
DATA 0000D5B06C1B06060100 5 
5000000C0F054001 345 0000000 
0000015400000 :REM*177 
DATA 000000006A1 500000000 
000 5B1 5000000000000 0054040 
0000000000000 :REM*76 
DATA 00000105000000010155 5 
400000055S101010000 0000SA8 
7818060200000 :REM*237 
DATA 95EA7F958080000056A9 F 
6542B020000701CC7B0 2000 

:REM*208 
DATA -1 :REM*1 9 
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GAMES 



Astro-Shoot 

Test your mwiismmislup in this 
space-age shooting gallety. 





By JOHN FEDOR 



Two different types of turrets— 
small and fasi-inoving, aiui 
large and slow-moving — chide 
you as you shoot from your 
spaceship in Break -A way. Tlierc are up 
to three large targets on the screen at 
a time. When you hit one, it breaks into 
two smaller targets of the same col()r. 
If yon manage to shoot both of these 
.■imaller ones, another large target ap- 
]3ears in one corner of the screen. 

Since you're in a spaceship, once you 
Slan moving, you can't slop. Pressing 
the fire-buiion shoots in the direction 
you're facing, and any shots that don't 
hit a target are recorded as misses. The 
ship, controlled by a joystick in [>ori 2, 
can bounce offthe walls witli no danger 
to it or your score. 

The game ends when either fiO sec- 
onds have elapsed or your slit]) collides 
with a target. Then your score is cal- 
culated, with five points for each large 




target you've hit and ten poims fur each 
small one. However, your score is also 
decreased five jjoitus for every miss. 

The right side of the screen displays 
game information, including your pres- 
ent sc(ne, your highest [jrevious store, 
the number of shots you've missed and 
the time elapsed. 

As you play, try to shoot at targets as 
their paths cross. You'll he more likely 



lo hit I hem, and both will be recorded 
as hits. .-Mso keep in mind that, because 
misses will decrease your score, constant 
shooting is unu-ise. Carefully pi aimed 
shots, aUtng with skillful maneuvering, 
will rack ii[j the highest scores. 

Broak-.Away uses six sprite shapes, 
which I've compiled to save 240 bytes 
atul give you :iO fewer lines of code t^^ 
type in. Fom- of the shapes disjihiy the 
ship going in the differeiu tlireciions; 
the other two arc the targets. I he bullet 
is a character graphic (the diamond), to 
eliminate any collisions between sprites 
other than your ship and tlie targets. 

1 his game is fun to play, especially if 
you're Oying to heal a friend. Just don't 
toniphiiii if you niake rude comments 
about his <n- her flying and marksman- 
ship, hut then score a yourself] IB 

John Fedor brenhs away from his college 
sludirs Willi a round or Iwo of this game. 



LItting 1. Break-Away progratn. 



10 


FOKE53280,0:POKE53281 ,0:PRIN 
T"{SHFT CLRKCTRL 2)BHEAK-AW 






AY IS SETTING UP... PLEASE WA 


90 ! 




IT." :REM*96 




20 


FOHX=49152T051 455:READA: POKE 






X,A:NEXT:SYS 19152 :REM»31 


100 


30 


DATA 169,0,141 ,74,3,141 ,75,3 
,141 ,76,3,32,87,195,32,141,1 






92,32,88,192,32 :REM*206 


110 


40 


DATA 10,193,32,246,197,173,3 
1 ,208,208,251 ,173,30,208,41 , 






1,208,244,32,76 :REM*143 


120 


50 


DATA 196,32,175,196,32,216,1 
94,32,216,195,32,237,195,32, 






65,196,32,237 :REM*197 


130 


60 


DATA 198,32,37,198,32,57,194 
,33,72,199,173,85,3,240,224, 






32,162,196,32,83 :REM*221 


140 


70 


DATA 199,32,168,199,32,219,1 
99,76,11,192,162,0,138,157,1 






28,62,157,0,63 :REM*201 


150 


80 


DATA 232,208,247,159,62,133, 





252,169,128,133,251,162,0,16 69,3,141,43,208 :REM*183 

0,0,169,29,200 :REM*67 160 DATA 141 ,44,208,169,14,141, 

DATA 145,251,200,232,192,24, 45,208,141,46,208,169,1,141 

208,245,24,165,251,105,64,13 ,39,208,169,85 :REM*12S 

3,251,165,252 :REM*133 170 DATA 141,21,208,96,169,144, 

DATA 105,0,133,252,201,64,2 32,210,255,169,147,32,210,2 

08,226,96,169,0,141,21,208, 55,169,11,141,32 :REM*55 

141,16,208,141 :REM*107 1 80 DATA 208 , 1 41 , 33 , 208 , 1 69 , 8 , 3 

DATA 23,208,141,27,208,141, 2,210,255,169,142,32,210,25 

28,208,141,29,208,169,255,1 5,162,0,169,0 :HEM+126 

41,248,7,162,250 :REM*141 1 90 DATA 1 57 , , 21 6 , 1 57 , 1 92 , 21 9 , 

DATA 142,249,7,232,142,250, 169,67,157,0,4,157,192,7,23 

7,142,252,7,142,254,7,169,1 2,224,30,208,235 :REM*223 

43,141,0,208,169 ;REM*20 200 DATA 1 62 , , 1 34 , 251 , 1 34 , 253, 

DATA 153,141,1,208,160,0,16 169,4,133,252,73,216,133,25 

2,0,189,173,200,153,4,208,1 4,160,0,152,145 :REM*153 

89,176,200,153,5 :REM*244 210 DATA 253, 1 69 , 56 , 1 45 , 251 , 1 60 

DATA 208,200,200,200,200,23 ,29,145,251,169,0,145,253,2 

2,192,12,208,235,169,5,141, 4,165,251,105,40 ;REM*37 

65,3,73,15,141 :REM*68 220 DATA 1 33 , 251 , 1 33 , 253 , 1 65, 25 

DATA 67,3,159,6,141,^9,3,16 2,105,0,133,252,105,212,133 

9,6,141,41,208,141,42,208,1 ,254,232,224,24 :REH*179l 

RUN il right: C-64i joystick 



IIXUSTRATEO BVJAN MUIJJlR 



Sl'KCJAL ISSUE 1389 • RUN 75 



GAMES 



230 DATA 208,215,169,112,141,0, 460 
4,162,110,142,29,4,202,142, 
192,7,169,125 :REM*32 

240 DATA 141,221,7,162,0,160,30 470 
,24,32,240,255,162,0,189,17 
9,200,32,210,255 :REM*131 

250 DATA 232,224,10,208,245,162 480 
,1 ,160,34,24,32,240,255,169 
,56,32,210,255 :REM*1 3 

260 DATA 169,89,32,210,255,162, 490 
2,160,30,24,32,240,255,162, 
0,189,189,200,32 ;KEM*186 

270 DATA 210,255,232,224,10,208 500 
,245,162,8,160,30,24,32,240 
,255,162,0,189 :REM*137 

280 DATA 199,200,32,210,255,232 510 
,224,10,208,245,162,12,1 60, 
30,24,32,240,255 :REM*39 

290 DATA 162,0,189,209,200,32,2 520 
10,255,232,224,10,208,245,1 
62,18,160,32,24 :REM*143 

300 DATA 32,240,255,162,0,189,2 530 
25,200,32,210,255,232,224,5 
,208,245,162,22 :REH*58 

310 DATA 160,32,24,32,240,255,1 540 
62,0,189,219,200,32,210,255 
,232,224,6,208 :REH*16 

320 DATA 245,162,0,169,1,157,13 550 
4,217,157,22,219,157,38,218 
,157,182,219,232 :REM*46 

330 DATA 224,10,208,239,32,57,1 560 
94,32,89,194,32,121,194,32, 
171,194,96,162,0 :REM*144 

340 DATA 160,3,185,70,3,74,74,7 570 
4,74,9,48,157,136,5,232,185 
,70,3,41,15,9,48 :REM*255 

350 DATA 157,136,5,232,136,208, 580 
229,96,162,0,160,3,185,73,3 
,74,74,74,74,9 :REM*171 

360 DATA 48,157,40,6,232,185,73 590 
,3,41 ,15,9,48,157,40,6,232, 
136,208,229,96 :REM*79 

370 DATA 173,77,3,74,74,74,74,9 600 
,48,141 ,24,7,173,77,3,41,15 
,9,48,141 ,25,7 :REM*16S 

380 DATA 169,46,141,26,7,173,78 610 
,3,74,74,74,74,9,48,141 ,27, 
7,173,78,3,41,15 :REM*164 

390 DATA 9,48,141,28,7,96,173,8 620 
2,3,74,74,74,74,9,48,1 41 ,18 
5,7,173,82,3,41 :REM*37 

400 DATA 15,9,48,141,186,7,173, 630 
81,3,74,74,74,74,9,48,141 ,1 
87,7,173,81 ,3,41 :REM*235 

410 DATA 15,9,48,141,188,7,96,2 640 
06,60,3,173,60,3,240,1 ,96,1 
69,8,141,60,3 :REM*128 

420 DATA 173,0,220,41,15,73,15, 650 
1 33,2,41 ,1 ,240,15,173,84,3, 
41 ,12,9,1 ,141 ,84 :REM+49 

DATA 3,169,255,141,248,7,16 660 
5,2,41 ,2,240,15,173,84,3,41 
,12,9,2,141,84,3 :REM*10S 
DATA 169,253,141,248,7,165, 670 
2,41 ,4,240,15,173,84,3,41 ,3 
,9,4,141 ,84,3 :REM*1 77 

DATA 169,254,141 ,248,7,165, 680 
2,41 ,8.240,15,173,84,3,41,3 
,9,8,141,84,3 :REM*22 



DATA 169,252,141,248,7,174, 690 
0,208,172,1 ,208,173,84,3,32 
,137,195,141,84 :REM*1 36 

DATA 3,140,1,208,142,0,208, 700 
96,162,1,142,60,3,142,61 ,3, 
142,62,3,142,63 :REM*203 

DATA 3,1 69,0,1 41 ,71 ,3,1 41 ,7 710 
2,3,141 ,73,3,157,76,3,232,2 
24,1 1 ,208,248 :REM*e6 

DATA 169,96,141 ,77,3,169,5, 720 
141,65,3,141,67,3,141,69,3, 
96,133,2,41,1 :REM*151 

DATA 240,1 ,136,165,2,41,2,2 730 
40,1,200,165,2,41,4,240,1 ,2 
02,165,2,41,8 :REM*128 

DATA 240,1 ,232,224,32,176,8 740 
,162,31,165,2,73,12,133,2,2 
24,248,144,8,162 :REM*217 
DATA 248,165,2,73,12,133,2, 750 
192,56,17 6,8,1 60,5 5,165,2,7 
3,3,133,2,192 :REM*225 

DATA 235,144,8,160,235,165, 760 
2,7 3,3,133,2,165,2,96,206,6 
3,3,173,63,3,240 :REM*106 
DATA 1 ,96,169,4,1 41 ,63,3,1 5 770 
9,250,133,251 ,76,255,195,20 
6,62,3,173,62,3 :REM+115 

DATA 240,1 ,96,169,12,141 ,62 780 
,3,169,251 ,133,251 ,162,0,13 
4,252,134,253 :REH*240 

DATA 166,252,139,250,7,197, 790 
251,208,38,189,65,3,133,2,1 
64,25 3,185,4,208 : REM* 5 4 

DATA 170,185,5,208,168,165, S00 
2,32,137,195,134,2,166,252, 
157,65,3,152,164 :REM*1 

DATA 253,153,5,208,165,2,15 810 
3,4,208,230,252,166,253,232 
,232,134,253,224 :REM*22 

DATA 12,208,197,96,162,4,16 820 
0,0,136,208,253,202,208,250 
,96,173,20,3,133 :REM*161 
DATA 113,173,21 ,3,133,1 14,1 830 
69,0,141 ,86,3,120,169,196,1 
41,21,3,169,104 :REM*177 

DATA 141,20,3,88,96,238,86, 840 
3,173,86,3,201 ,3,208,39,169 
,0,141,86,3,120 :REM*8 

DATA 248,56,173,78,3,233,5, 850 
141, 78, 3, 173, 77, 3, 2 33, 0,1 41 
,77,3,208,13,173 :REM*146 
DATA 78,3,208,8,169,1 ,141 ,8 860 
5,3,32,162,196,32,121,194,3 
2,171,194,108 :REM*223 

DATA 113,0,120,165,113,141 , 870 
20,3,165,114,141 ,21 ,3,88,96 
,206,61 ,3,173,61 :REM*201 

DATA 3,240,3,76,11 3,197,169 880 
,6,141 ,61,3,173,79,3,133,25 
1,173,80,3,133 :REM*245 

DATA 252,208,3,76,113,197,1 690 
60,0,169,32,145,251 ,173,64, 
3,133,2,41,1,240 :REM*166 
DATA 13,56,165,251,233,40,1 900 
33,251 ,165,252,233,0,133,25 
2,165,2,41,2,240 :REM*247 
DATA 13,24,1 65,251 ,105,40,1 910 
33,251 ,165,252,105,0,133,25 
2, 165,2,41 ,4,240 :REM*246 



DATA 13,56,165,251,233,1,13 
3,251 ,165,252,233,0,133,252 
,165,2,41,8,240 :REH*191 

DATA 13,24,165,251,105,1 ,13 
3,251,165,252,105,0,133,252 
,165,251,133,253 :REM*91 

DATA 165,252,73,220,133,254 
,169, 0,1 45, 25 3, 177, 251, 201, 
32,240,44,120 :REM*92 

DATA 2 48,24,173,81,3,105,1, 
141 ,81,3,173,82,3,105,0,141 
,82,3,216,88,162 :REM*207 
DATA 32,142,4,212,232,142,4 
,212,169,0,141 ,64,3,141 ,79, 
3,141,80,3,76 •:REM*122 

DATA 113,197,169,90,145,251 
,165,251,141 ,79,3,165,252,1 
41 ,80,3,173,0 :REM*82 

DATA 220,41,16,73,16,133,2, 
24 0,86, 173, 83, 3, 208, 81, 173, 
80,3,208,76,56 :REM*242 

DATA 169,255,237,248,7,170, 
189,251 ,200,141,64,3,56,173 
,0,208,233,24,74 :REM*147 
DATA 74,74,141,79,3,56,173, 
1 ,208,233,50,74,74,74,168,1 
69,4,141,80,3 :REM*19 

DATA 192,0,240,20,24,173,79 
,3,105,40,141 ,79,3,173,80,3 
,105,0,141,80,3 :REM*218 

DATA 136,208,232,162,128,14 
2,4,212,232,142,4,212,32,21 
6,197,165,2,141 :REM*20 

DATA 83,3,96,173,79,3,133,2 
51 ,173,80,3,133,252,160,0,1 
77,251,201,32 :REM*149 

DATA 240,11,169,0,141,64,3, 
141 ,79,3,141,80,3,96,162,0, 
138,157,0,212 :REM*65 

DATA 232,224,24,208,248,169 
,15,1 41 ,24,212,1 69,38,1 41 ,5 
,212,169,32,141 :REM*99 

DATA 1,212,169,116,141,12,2 
12,169,18,141 ,8,212,169,83, 
141 ,19,212,169,6 :REM*203 
DATA 1 41 ,15,212,95,1 73,31 ,2 
08,41 ,252,13 3,2,2 08,1 ,96,17 
3,79,3,133,251 :REH*22 

DATA 173,80,3,133,252,160,0 
,169,32,145,251 ,173,31 ,208, 
140,80,3,140,79 :REM*117 

DATA 3,169,4,133,251,132,25 
2,1 65, 2, 37, 251, 240, 7, 173, 21 
,208,37,2,208,3 :REM*78 

DATA 76,223,198,162,32,142, 
1 1 ,212,232,142,1 1 ,21 2,1 65,2 
52,189,250,7,201 :REM*62 

DATA 250,240,43,169,250,157 
,250,7,157,251 ,7,189,65,3,7 
3,1 5,157,66,3 :REM*23 

DATA 138,10,168,185,4,208,1 
53,6,208,185,5,208,153,7,20 
8,165,251,10,13 :REM»206 

DATA 21,208,141,21,208,76,1 
94,198,165,251 ,73,255,45,21 
,208,141,21,208 :REM*78 

DATA 120,248,24,173,71,3,10 
5,5,141 ,71 ,3,173,72,3,105,0 
,141,72,3,173,73 :REM*63I 



7G l{ i; N • SPECIAL rSSUE ItfHH 



GAMES 



920 DATA 3, 105, 0,1 41, 73 
8,1 20,248,24,1 73,71 
,141 ,71 ,3,173,72 

930 DATA 3,105,f!,141 ,72 
3,3,105,0,141 ,73,3, 
,251 ,230,252,1 55 

9 40 DATA 252,201 ,6,208, 
78,198,173,21 ,208,4 
,23,169,251 ,141 

950 DATA 250,7,1 69,32,1 
,169,56,141 ,5,208,1 
8,9,4,141 ,21 ,208 

960 DATA 173,21 ,208,41 , 
3,169,251 ,141 ,252,7 
141 ,8,208,169 

970 DATA 235,141 ,9,208, 
08,9,16,1 41 ,21 ,208, 
08,41,192,208,23 

980 DATA 169,251 ,141 ,25 
32,1 41 ,12,208,169,2 
3,208,173,21 ,208 

990 DATA 9,64,141 ,21 ,20 
,30,208,41,1,240,3, 
,96,169,255,141 

1000 DATA 27,208,32,171 
57,194,32,12,200,1 
208,6,1 73,82,3 

1010 DATA 208,1 ,96,120, 
73,81 ,3,233,1 ,141, 



,3,216,8 




,82,3,233,0,141 ;REM*1 40 




,3,105,5 


1020 


DATA 82,3,56,173,71 ,3,233, 




:REM*227 




5,141 ,71,3,173,72,3,233,0, 


1120 


,3,173,7 




141,72,3,173,73 :REM*189 




216,88,6 


1030 


DATA 3,233,0,141 ,73,3,216, 




: REM* 100 




176,184,169,0,141 ,71 ,3,141 


1130 


1 ,96,76, 




,72,3,1 41 ,73,3 :REM*83 




1 ,12,208 


1040 


DATA 240,171,173,76,3,205, 




:REM*155 




73,3,144,24,240,2,176,38,1 


11 40 


41 ,4,208 




73,75,3,205,72,3 :REM*9 




73,21,20 


1050 


DATA 144,12,240,2,176,26,1 




:REM*106 




73,74,3,205,71 ,3,176,18,17 


1150 


48,208,2 




3,71,3,141,74,3 :REM*167 




,169,32, 


1060 


DATA 173,72,3,141 ,75,3,173 




:REM*204 




,73,3,141 ,76,3,96,32,89,19 


1160 


173,21 ,2 




4,173,0,220,41 :REM*1 53 




173,21 ,2 


1070 


DATA 16,240,249,162,12,160 




:REM*97 




,5,24,32,240,255,162,0,189 


1170 


4,7,169, 




,230,200,32,210 :REM*205 




47,1 41 ,1 


1080 


DATA 255,232,224,21,208,24 




;REM*147 




5,173,0,220,41 ,16,208,249, 


1180 


8,96,173 




32,10,193,173,0 :REM*249 




1 41 ,85,3 


1090 


DATA 220,41,16,240,249,96, 




: REM* 1 9 4 




32,65,196,32,65,196,1 62,0, 


1190 


,194,32, 




160,0,136,208 :REM*23 




73,81 ,3, 


1100 


DATA 253,202,208,250,96,0, 




:REM*190 




0,0,0,0,0,0,0,0,12,0,0,30, 


1200 


248,56,1 




0,0,12,0,0,0,0,0 : REM* 187 




81 ,3,173 


1110 


DATA 0,0,0,0,0,0,63,0,0,97 





,128,0,204,192,0,222,192,0 
,204,192,0,97 :REM*ie6 

DATA 128,0,63,0,0,192,0,0, 
224,0,0,240,0,0,255,128,0, 
255,128,0,240,0 :REM*111 
DATA 0,224,0,0,192,0,0,255 
,192,0,127,128,0,63,0,0,30 
,0,0,12,0,0,12,0 :REM*234 
DATA , 1 2 , , , , , , 1 , 1 28 , 
0,3,128,0,7,1 28,0,255,128, 
0,255,128,0,7 :REM*170 

DATA 128,0,3,128,0,1,128,0 
,12,0,0,12,0,0,12,0,0,30,0 
,0,63,0,0,1 27 :REM*49 

DATA 128,0,255,192,0,0,0,0 
,32,247,32,56,56,235,66,82 
,69,65,75,45,65 :REM*95 

DATA 87,65,89,74,79,72,78, 
32,70,69,68,79,82,76,65,83 
,84,32,83,67,79 :REM*131 
DATA 82,69,72,73,71,72,32, 
83,67,79,82,69,77,73,83,83 
,69,68,84,73,77 :REM*64 

DATA 69,82,5,80,82,69,83,8 
3,32,66,85,84,84,79,78,32, 
84,79,32,80,76 :REM*67 

DATA 65,89,1 ,4,2,8,239 

.-REM* 107 



Faster than a Speeding Cartridge 
More Powerful than a Turbo ROM 

It's Fast, It's Compatible, It's Complete, It's... 



JiffyPg 

I Uttra-Fast Disk Operating System for the C-€4, SX-€4 i 0-128 



• Sp*»ds up «ll disjl optratlotn. Load, Save, Formal, Scratch, Vaiidale, access 
PRG, SEQ, REl i USR liles ip 10 15 titnw fas(»ri 

■ \k»s no ports, mtraoiy, or «tm cabling. The JrftytX)S ROMs ipgrade youf 
computer and drive (s) imemaUr lor maiimum speed and corrpatbifity. 

' GuinnlMd IQffK compitiblt with all sottwira aryl hirdwira. JKfyOOS speeds 
LP the loading arxl HemalfJe-accesscperal Ion of vinualy all commercial sottwaro. 

' Built-in DOS Wadgt plus U addiibnal commands and convenience features 
including one-kef load'save/scratch, diredory menu and screen dunp. 

• Easy do-lt-yoursall installation. No e[«:ln>nics experience or special tools re- 
quired. Illustrated step-by-siep instrtjciions included. 



JiffyDOS sauaiiabte lor W4. 64C, SX-64, C-1 29 & C-12BD (JiffyDOS^I 2fl speeds 
HI both 64 and12S modes) and 1541, 1541C. 1541-11, 1571. 1581. FSD-i&2. MSD- 
1S2, Excel 2001, Enhancer 2OO0 disk drives. System iricludes ROMs (or computer 
and disk ime, 5lod(/Jiff|iD06 switching system, illustrated slep-t>y-sle(i irtslallalion 
instnjctions. User's Manual, Money-Back Guarantee, a unfimiled customer sipport. 



C-6i'SX.64 systems S49 95: C-t2BC-t2BO systems S59 9S. Addrldnvo naisS24 35 

Please add S4 25 shipping handling per ottJer. VISAMC. COD Money Order accepted 

Call or write for more information Dealer, Drstrtiutor, & Users' Group prcing avarlable 

Please specify computer and diive when ordering 

Creative Micro Designs, Inc. 

p. O. B 01 70 9, TOI b ra h pm. M A 1 095 Phone : (4 1 3) SZ&O023 

50 1 ndu si rial Or,. Soi M6, E. Longmeadow, MA OtD^a FAX; {41 3) $254)47 



Circle 418 on Header SarvJce card. 



WE WONT PAY YOUR TAXES! 

0U[ TAX MASTER will help you compulEj Ihom more QUICKLY and EASILY. Bs ir>0 
Maslor ot your fncoma Tmos with TAX MASTER, new nvnilablo tor your 1968 FiKloral 
Income Taxes tor Iho C-64ffi-1?B wilh singlo. rwin or Cual ctisk Orlvo and optional prtnlor, 

• NEW Tan laws are covefffd. 

• FORMS t040. 4S«2, & Sehvduiet A, B, C, 0, E & F, 

• PERFORMS all orimmelhC CORflECTUY. 

• EASY CHANGE of any Bniry wnh aulomatie RECALCULATION ol mo entiro form. 

• TRANSFERS numbers tMtwflen loims. 

• CALCULATES your taxes and REFUND Tai laOles are included. 

■ SAVES all /our dale lo dish lor luture cnanges 

• PRINTS me data ttom each lorm. 

• CALCtJLATOR tunclion is buiil-ln 

■ DISCOUNT coupon toward Ihe puretiaso ot ne«l year's updotMJ program Is Inoluflod 
TAX MASTER (ON DISK) ONLY 532.00 



TIRED OF SWITCHING CABLES? 

VIDEO MASTER tlB provides continuous 80 column color (ROBI), 80 column mono- 
cnromo and audio out. Switcti betwoon 60' column monochrome and 40 coJumn color 
lOT composite monitor. Use up lo 4 monitors at once' Includes composite cable. 

VIDEO MASTER 128 for Commodore 128 S39.95 



FED UP WITH SYNTAX ERRORS? 

HELP MASTER 6* provides inslani On-Lirto Help Kreons tor an 69 BASIC commands 
wnen you need Ihem. Takes no BASIC RAM No mterloronee witri loading, savinB. 
ediling or running BASIC programs. Includes 369 page BASIC releience torn, mora 
HELP MASTER 64 for Commodore 64, 640 .... S24,95 



OTHER MASTER SOFTWARE ITEMS 

RESET M^TEft 0-64 (noi 64C) res^t switch >fti2 serial pts S24.fl5 

CM3P SAVER KIT prol&cis computer s chips from slaSic S.flS 

MODEM MASTER user port extender S29,9S: w/resot 34.95 

Y-HOT? G-fooi serial Y cable, i male. 2 fema!& conneclofs 15.00 

Y-VES! e^toot &9fia] ¥ cabFg. 3 male connectors 15,00 

C-128 flO col monochrome caWo for nofl-RGQ monitor 9,00 

Disk Wolchflr— lets you use bolh sides ol clt$k 6.00 

64-TRAN The only Fortran compiler for C-G4/a4C &0.00 



MAf 



Send (or Free Catalog 



JTER 

Software 

6 Hiliery Ct. 

Randallstown, MD 21133 

(301) 922-2962 



ADDS? 00 pv oiati LMIOU^Q S hiyidling US 

and Can«d«. »7 00 tofOKgn AH piKM W US 
Oallari Cinidiin ottitti u34 CafliOLin 
POSTAL insngy on>r Mvylana r»d 
add 5^ taji E>flftJ<w ,fvji^fifrj iwHcom*! 
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Here's a panormna of 1988 's most useful questimis and answers 
in the areas of programming, software and hardware. 





PROGRAMMING 



Ql'm a 13-year-dd programmer and I 
think your magazine ii great .'I'm writ- 
ing a program and 1 ivant to know how to 
keep the listing from prying eyes. 

' —Brian Leaby 
N. Haby[X>n, NY 

A On ilic C:-[H, use POKL 775,1 h. 
tlisiiblc program listing capubilily. 
To restore il, Lise POKE 775,107. On the 
C-128, use PORE 775,139 to disable and 
POKE 775,81 to restore. 



Ql aefidenlally used S(nie with Replace 
(SAV1-: "mkl-lLKNAMir.S) on a 
C-64 program lehen I typed it in for the fir at 
time, not knowing J shouldn 't have. Now I 
can't get the filename off the disk! Can you 
tell me how? Also, should I make a backup 
before scratching the program? 

— NANCYli A. KUSCHE 
Cil.KNDAl.K, AZ 

A The easiest way is to simply re- 
name the file. Use this command 
line in Direct niode: 

OPEN 15,8,15, "R0:NF,VVF1LENAME = 
0:®0:Fn,ENAME":CLOSE 15 

Now yoti can scratch the oiti Hie with- 
out wonyinji; nhoiit erasin;^ the piu- 
gratn witli the filename "Kilenamc". 



Ql've been looking for the C-128 Pro- 
grammer's Reference Guide m 
everf' Iwokslore in toinn, hut no one has heard 
of it. tXiea it reiith exist, and eun \ou tell me 
where I can order onef 

—KEN JAMERSON 
ZANESVILI.H, OH 

A Oh yes, it ccrtLiinly exists and is 
perhaps the single most important 
progratnmitijr reference available for 



By LOU WAIJ ACE 

the (1-128 (1 usually cany one in my 
briefcase — honest!). It's over 700 pages 
long, contain.*; a complete iiasic 7 en- 
cyclopedia, sections on machine lan- 
guage, graphics, sprites, .sound and 
CP/M. It also covers programming the 
8563 80-column chip, a device input/ 
outptit guide, memory maps and nearly 
100 pages of hardware specifications. 

It's jjublished by Raniam ("omputer 
llcmks and retails for S2'1.05. You can 
order a copy by calling 80()-223-t)8;54, 
extension 479. Us reference number is 
34'J78-5, and they accept credit cards 
(VISA, MasierCharge and American Ex- 
press). You can also get information for 
oi ileritig by mail from that nmnher. 






WItat is the differenee between the space 
and shifted space characters? 

—JOSE R.\M1REZ 
GUADALAJAR.'\, JALISCO, MEXICO 



A The space rharacter is aCI-lRS(32). 
while shiited space isaCHR$(lf)0). 
They are different ASC'll characiers and 
should not be used interchangeably, Por 
exatnple, if you were typing in a RUN 
program listing and typed in a shifted 
space instead of a space, HtZ/Vs Check- 
sum program would generate an error, 
but the line would look pel fectly correct 
to you, making it very diffitult for you 
to debug. 



Ql'm writing a program and want to 
keep a few files open while the program 
i\ running. How many can I keep open at 
one time on n Commodore diik drive? 

— D. SCHVVARIZ 
SCOTTSDALE, AZ 

It depends on the drive you use. 

154 Is and 1 57 Is have three avail- 
able buffers to open up to three se- 
quential flics at once, or one relative 
file (which requires two bufTers) and 



one sequential file (one buffer). The 
1 581 drive has seven buffers, so you can 
have more combinations of open files, 
but it's not a good idea to have more 
than two relative files open at once. 



Ql need information aboitt both the inner 
workings of the C- l2S's ROM routines 
atid those of the 1571 di.\k drives. Does 
Commodore sell documented ROM listing.\? 
If so, where can I find them and how much 
does it cost? 

—Mary Sue Je.\nings 
Tulsa, OK 

A Commodore doesn't sell that in- 
formation as far as 1 know, but 
you can get books with exactly that in- 
formation fioui y\bacus Software of 
Grand Rapids, Michigan (phone f)16- 
241-5510). They have the 1571 Disk Drive 
Jniernals (S 19,95) and the C-128 Basic 7.0 
internals (S24.95), which has extensive 
documentation on ROM tontines. Both 
arc e>ccellenl reference hooks on the in- 
ner winkings of 128 Basic and the 1571 
ROMs, .'\hacus also j)ttbiishes a number 
of books for the 64 and 128. 



Qi'm taking a course in Basic, and the 
class uses MS-DOS computers. How- 
nier, I want to do my homework on my C'64. 
The problem is Basic 2.0 doesn't have any 
text-formcttting abilities, and I need to have 
colttmru of decimal numbers to two signify 
cant digits, imth the decimal points aligned 
How can J do it? 

— M, \Vrk;ht 
Odum, G.'\ 

AIl'.s not too difficult. All ymt need 
is a short routine to read in a nvmi' 
her, truncate it lo two digits to the right 
of the decimal, and convert it to a string. 
Once that's done, you can add extra 
zeros if the number has fewer than 
two significant digits, and pad it with i 
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ciiougli space characiers so nil the mini- 
bcrs have tlic same luimhcr of digils. 
This short Basic [jrogratn sejimeni (tern- 
oiisttates ime way lo do it; 

10 I'KlN'l" "X = ";:1NPUT Y 

20 GOSUB :■)() 

30 PRIM!' Y,XS 

-10 GOTO 10 

50 X = Y* 1(W:X = IN'T(X)rX = XHOO 

60 XS = .STRS(X)fr = X~IXT(X);lF T = 

THKN XS=XS + ".(KI":G01t) 80 
70 'r = (X*l())-IN!(X*H)):ir l' = THEN 

X$ = X$ + "0":(;OTO 80 
80 FORJ= rrO(10-lJ£N(X$)):X$ = "" + XS: 

NEXT 
90 RETURN 

In lliis example, (he piof^rain asks you 
for a miiiiher aiiti converts (lie number 
to a siriiij; with the piopef nurnhcr of 
digits. It tliun adds character spaces to 
the front of the number so the output 
is ten characters long, with the decimal 
points aligned. You can dtange the 
mnnber of zeros the proj^ram adds to 
a number by changing I he 10 in line 
HO. And the subroutine at lines 50-90 
could be included in your programs. 

However, while writing this, I discov- 
ered a bug it) both the C(i-! an<l C-128 
math routines and thought 1 would pass 
it on to our readeis. .-^pjjarcnily it in- 
volves round-off errors in lloalingpoitu 
math, but only affects reilain numbers, 
for wiiich I haven't as yet heen able to 
find a pattern. It's easier lo demonstrate 
than explain. In Direct tnode, type in 
the following lities: 

X = 33.-1 

Y = (X*1()>-1NT(X»I0) 

PRIX r Y 

What di> you ihink the value ol Y is? 
If you answer wro, you're liglit, but the 
answer you get is 1.I920929L-07! Xol 
quite right, that's for sure. If you had 
entered -'MA for X, the value given 
for Y would have been a little less than 
1, a very large error itrdecd, Ihesc er- 
rors arc enough to cause [irogiains to 
work incorrectly when they encoinuer 
one of the "magic" error-causing nutn- 
bers, as in the small routine above. So 
be is'arned! 



Ql wa.s intrigued by your nwnerk format 
program in the March I'JSiS" (hmmo- 
dore Clinic. I've made so irir nihanccments to 
it and rorrected a couple of minor l/ngs titat 
were due to the math hug yox di'scribed. The 
result i.H an improved version V"U might be 
interested in passing on to your readers. 
if) i'lUNT "X = "JNPVT y' 

20 (iosun V) 
m PRINT y.xs 



■to cam 10 

so ,V = )'• ; 00:X = IST(X •^ .OWi):X = X/IOO 
60 XS = STRS(X):T^ X - IM'IX):IF T = 

riiKN xs = xs-^".oo":(:om so 

70 \'$ = STRS(Ii\'T(X*IO + <)}i:L! = 

VAt.{V$}:S$ = S'nmX*tO}:R = VAL(S$} 

75 Z = R- U:IF Z=Q THEN X$ + X$ +"0" 

SO fOHJ^l TO(I0-Lt:N<X$)):XS='- " + 
XS:i\'EXT 

90 RtnVRN 

— l-Ii-.Riii-:ur Waller 

MlCKSVILLK, NY 

A Thanks, Herb. Ihe original for- 
matting program generated C|uite 
a few letters, and a number of readers 
sent along their own versions. Evidently 
a good niany have also been experi- 
nienliiig with the malb bug. If anyone 
solves the math-bug prolileni, drop tis 
a line. 



Q/'m writing to you in reference to a 
"bug"in the Commodore math rottlines 
you disriused had; in thr March I98S Clinie, 
The problem ixn't a hug, hut a eoiisei/ueiice 
of the floating-point math routines. It results 
from rounding off us you pointed out, and 
from the rounding of answers in the floating- 
point routines. 

In your example, the rounding that con- 
trilmtes to the problem occurs in X* 10 and 
is a result of the representation of decimal 
0,4 in the binary jloatiiig-piiinl s'^.Uem, which 
fames the shift of a I into bit 7 of the 
rounding byte. The re.wlts for the negative 
case are essentially the same except for Ihe 
operation of the l.\T(. . .) function of Basic, 
which returjis the clo.sest integer value that 
is less than the argument. Tor negative num- 
bers, this gives a (negative) integer that is 
larger i>i absolute ^mlue (magnitude without 
regard to sign) than the argument. 

— SiLART RL'DIX, PhD 
SCO n SD.-^LE, AZ 

A Thanks for the information. As 
I've stated hefoie, this is stune- 
thing all liasic programtners who use 
lloalirig-fjoitil roulines should be aware 
of. IiUerestingly, this "math-bug" sub- 
ject has generated mine discussion than 
the alleged ilsc of astrology in the While 
House, Still, the more we know^ about 
our computers, the better progranmiers 
and users we become. 



Q I just bought the pmuary 1988 issue 
of Rl-'X, and I ran into difficulty 
lr\ing to use the new checksum. I gel an 
Out of Data error in line 30, I checked each 
line to see if Td made any typing errors but 
could find rwne. 

Please advise me, as I would lilie to type 



in the Calendar Maker program, among 
others in ^our magazine. 

—Jams Sunken 
Nkvada, I a 

A You probably made an errtn' in 
typing, as RUX'i new Cbecksiuii 
])rogram works very well. But, just lo be 
sure, 1 typed it in niyseinVoni the listing 
i[i the [ainiary 'HH issue. \o problem! It 
worked as it sluuild. Since I don't have 
a copy of your listing, 1 can't be sure 
what is wrong. \iM I be comptuer has 
given us a good hint with the "Out Of 
Data error in line iiO" message. Ihai 
tells us the program was trying to read 
a value from the Data statements and 
ran out of data to read, which iti turn 
means you left out a portion of a Data 
slaiement. That coidd be a missing 
comma, a period usetl in place of a 
connna, or perha))s even a cortiplete 
line. Cheek the listing again carefully; 
I'm sure you will discover the proi)lem. 



QJ hnow that ,\pple computers have a 
liasic command called Speed, which .wts 
the .speed of output lo the screen or printer. 
,\nd I have noticed that in Mediagetiie's 
liacker and Ghosttnisters. the .Speed com- 
mand is available, hut I cannot find any way 
of accessing it in CJiM IUi.\ic. Ihes it exist 
on the C-641 

—Chad IIaynes 
BecklI'-.v. \VV 

A No, there is no corresponding com- 
mand for the C-61 (or the C-128). 
What the Mediagenic programs do is 
slow down or speed up llie screen ouit)ut 
ilself. You can emulale it (|uiic easily in 
your piogranis, loo.Jiisi put a small delay 
loo]) between outputs, thmiy: 

100 PRINT \%:Hm 1 = 1 TO DE:NEX1" 
110 GOTO 10(1 

By increasing the value of the variable 
Dl" in line 100. ytui can slow down the 
speetl of ]u inling AS. If yon decrease 
I1E, it will pi int faster. 



QHow can I reprogram the CI28's 
sliifted run hey and the help key? .■U.vrt, 
liow can 1 keep a mer from exiting a liasic 
7.0 program with the .stop key? 

— R. BLIRN.S 

Concord, NH 

A The answers to both questions 
were published recently in the 
Best of .Magic column in RUN's .Special 
Issue U4. To dis;ible run-stop/resiore, use 
these Pokes: 
POKE 7!)2,51:l'OKE IV'A.'lZib 
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As mosl 128 users know, tlic ciglit 
f'lUKliuii keys can easily he ii?[)r<i- 
grasnmed wiih the Key lotnmaiKi. Bui 
yoii can t-asily rejirogi am ilie shificd 
run and ticlp keys with the lolluwing 
SYS commands: 

RLN KF.Y 

BANK iriiSYH Dl£C("60r.C")„8„,"RUN KEY" 

HF:LP KliY 

BANK! ri^SYS DF.f: {"liOEtr')..!!,,,"! IKl ,1' KKV" 

Substitute vour own euiiimaiitls for 
the words RUN KEY or HKt.P KKY to 
give you a total of ten prograiomable 
function kevs. 



QWhm I'm creating high-rcsolutkm 
graphics on my CM, I huvf a prMnit 
positioning pixels of diffcreiil colon nrxl h> 
each other — tite first colored dot changes to 
the nmu color! Why does that happen, and 
what can I do about it? 

—lee rumsev 
Long Bf_\ch, CA 

A The ])r()b!em you're espcriencing 
is known as "color bleed." The way 
C-6 i {and C-128) graphics are generated 
by the \TC chip allows two colors per 
color cell, one foreground and one 
background color. The color cell is an 
8x8.pixel matrix. So, any alteni])t to 
change even one dot within llie 8x8 
area results in all foregroinKi |)ixels (or 
all background pixels, depending on 
which color you're using) changing tu 
the current color. There's nothing yoti 
can do about it when using the hires 
320 X 200 Graphics tnode. 

If you use Multicolor (.Graphics mode, 
you can have up io four different colors 
per cell, but there are also some draw- 
backs to using this niode. The screen 
resolution reduces to IfiO x 200, givitig 
a coarser display, and the color ceil be- 
comes horii!ontal!y smaller — a 4x8- 
pixel matrix. Each pixel has twice the 
wdth as in HI-Rcs mode. 



QWhiil do you dn when you've played 
one 064 game, and you want to reset 
and play a different game without using the 
on/off switch? The reason I ask is that t want 
to use the switch as little as possible. Also, 
what is a Poke statement in a program for, 
and liow do you use it in a C-6-t program? 
— N(;iiiA LiONC, 
Santa Ana, CA 

A Sometimes you can press the ruii- 
stop/rcstore key combination, and 
then enter the command SYS 64738 to 
perform a "soft" reset. However, most 
games disable the ruti-stop/restorc ctnn- 



bination, so thai a soft reset won't work. 
An alternative is to add a hardware reset 
switch similar to that of the CM28, fhe 
easiest way tn do that is to use a plug- 
in cartridge (like I'ower Cartridge or 
Blowup). Bui even then, some games 
install themselves in memory like an 
autostart cartridge, so any attempt to 
reset the computer merely restarts the 
game. In that event, you ran only turn 
the com ] niter off, wail abcnit five sit- 
nmls and im'n it back on, 

I'he I'oke command is a way for the 
Basic prcigramnicr to place a number 
iino a specific memory location in the 
computer's memory. The number must 
be in the range 0-2iJ.5, as 25,") is the 
largest value tiial can be contained in 
one byte of memory. To use it, just ty]>c 
I'OKF., followed by the memory ad- 
dress, a ccnnma and then the value lo 
place in that address. For example, if 
you wanted to put the character A cmto 
the C-64 screen, you could type: 

I'OKE lt)24,f)ri 

This places ihe .ASCII value 0,") (the 
code for letter A) into memory location 
102!, which is the first character eel!, 
for the upper left corner of the C-64 
screen. 

Related to the Poke command is the 
Peek comniand. This does the op]50site, 
reading the contents of a nieinory ad- 
dress. I'or examjjle. 

A = t>EEK(t(J24} 

assigns to variable A the .-^SCUl value of 
the byte at address 1024. 



Ql've tried sai'ing multicolor graphic 
screens (CHAPIUC 3) with my C-IIS 
and have had no luck. Alt I can cUt is \tivc 
the bitmap and one colore the other colors 
neivr .^how up right. .According to Commo- 
dore, these colors are in the color memory 
area at 5S296-56295. But saving that area 
of Memo'iy and relmiding it has no effect on 
the colors of the images. Is t tie re a way to 
(rii'c mullirnlor pictures from liasic. ami if 
\o, cottld ytni please /('/ ils in on the secret? 

—Morgan H aikisen 

HAMII.fON. NJ 

A Yes, it can be done from Basic, but 
if I tell you, you'll have to promise 
to keep <mr "secret" safe! fbcrc are 
ilnee areas of memory yon must save 
ill order !o completely re[>roduce a mul- 
ticolor ((iR,-M'IUC nuide 3) screen oil 
the (M28. fhe flist is the area from 
7168 to 16191, wiiich contains the same 
color (7168-8191) and bitmap (8102- 
16191), Vou must also save the (jack- 
ground color at .fiSSSl. (I also save the 



border at ii32aO.) And, as you know, the 
main color memory is al location 
.').")2<H)-.'i629,f). 'fhe trick is lo be able to 
access that memory correctly, because 
in the {M28's multi-bank memory 
scheme, some areas are noi accessible 
(even using the ii;iuk ccnmnand) with- 
out a little nudge. To demonstrate, I 
wrote a small program that creates a 
muilicoUn' display, then saves il to disk. 
A second routine can be used lo dis])lay 
the pic Hue. Vou coiild easily use these 
as subnunines in your own programs 
f(u- loading and saving ])icrtures. 

5 REM SAVE MULl'ICOLOR SCREEN 

K) POKE .fiSaSO,? 

'JO COLOR 0,1:(;C)LC>R ],2:COI,OR 

i;,;i:t;oi,ou :i,4 

30 REM SAVE MC PlCl LIRES 

40 c.RAPiii(::i,l 

50 REM CREATE SOMEIlllNC. 

1)0 CIRCLE l,-H),ll)0,;45 

71) C1RC;LE 2,80,100,35 

HI) CIRCLE 3, 1^1), 1 1)0,35 

on REM S,-\VE 11 

Kill POKE 1,PE!-:K(1)AXD254 

I III liS.Wi; ■[iKC;UDR".lJI3,P53aHI) 'fO 

P.'jliUH^ 
121) IISAV 1-:"C,M EM",B I S.Ph^t'im TO 

P5G2'J1) 
130 11SAVE"SMEM - BMP",B0.P7168 TO 

Plfil!)2 
!■!() Cr.lKEV A$ 
151) (IRAl'lllCO 

Once you've saved ytuu' [jittures lo 
disk, you can reload and display ilicin 
with this routine; 

to REM R]-:i.OAll A SAVED .MULTICOLOR 
PICflKE 

20 (;KAi'iiK::t,i 

30 POKE I.PEEK(I)AM)254 

40 il[.OAn"liKC»»R",Bl3.P53280 

50 »LOAl)"(:MEM".IU,">,P,'i529ri 

I'lO ULOAI) -SMEM - lVMP",P0,!'7ir.8 

70 ceikea as 
80 graphk;« 



Ql'iv written a f.'-/2i'? program that 
needs to know the name of Ihe 7 57/ 
disk .s(j // ii>;7/ lie able to print out the disk 
name, along u^ith other data, to the printer. 
The trouble is, I can't figttre out how lo do 
it! .4fiv ideas? 

— JOHN SCHL'KLER 
SEDONA, AZ 

Alt's (|uite easy, and there are a 
uiunber of ways (o cUi it. The eas- 
iest is to open a channel to the drive 
and read the direclory, just as you would 
a )irogram. Here's a sluut Hasic pro- 
gram that reads the disk name into a 
variable. With a little more work, it 
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tould piob;i!)ly be used lo reatl the- en- 
tiiL- disk diiccloiy, along with all iht fik- 
types and ftle sizes. 

H) RKM RKAIJ A DISK NAMK 

20 OPKN 1,8.0,"$" 

30 FOR 1 = 1 ^4 

40 GET#1,AS:IF AS = "" THEN AS = 

CllRS(O) 
50 D$=n$ + AS:NKXT 
60 CLOSE 1 
7(1 l)S + MlDS(n$,<l,ir>) 
8(1 i>RI\ T US 

This works on any ]'}l\, 1571 or 1581 
drivE.'. Ii reads in enough information to 
get just the disk name, then, using the 
MIDS function, it makes DS equal lo ihe 
data that's found heiweeii the donhle 
t|uotes m the to]) ol your disk directory. 
Ihis is the disk name, and it's always 10 
characters long. 

QWluil is the purpnse nf Ihe REM* 
statements at the end of earh line of 
code in progratiLs listed in RUN? 

— Y, RUlilNSOW 
DES PI.AINES, IL 

A They're used with HU.Yii Check- 
sum program, which catches er- 
rors you may type into a listiuj;;. Those 
REM* statements are followed by a 
number, called a checksum. Don't ty])e 
in die Rl'.M* or the numlH-ilhal follows. 
Instead, when you have the Cliecksum 
progran! insialled in tnemory and type 
in a program line, a nmiiber is printed 
to the screen. If the number matches 
the number following the REM*, you've 
correctly entered that line: if not, there's 
an error in the line that needs correct- 
ing. The Checksum |)rognim rejjlaced 
our ohl Peifett Typist program in Jan- 
uary 11)88. It and the instructions for 
using it appear in everv issue. 



Ql'm a heginmtig machine langimgr pro- 
grammer, and I'd like In leani how to 
write an intentiptdritirn program for the 
C-6-L Could you give mr n simple naniplr? 

—Jane Roixmyfr 

Cl.FA'l-:i.AND. (>M 

A I sure can. Writing an IRQ routine 
is basically very simple. In theory. 
all you have to do is redirect the IRQ 
vectors at S(Wt-! to the address of your 
nnitine. Then, every fJOili of a secotid, 
your machine language jirogram is ex- 
ecuted. Aftei eacli access, it should then 
send the computer on to the address of 
the regular IRQ routine. To demon- 
strate, I wrote a very simple program 
that changes the border and back- 



gtountl colors to black and cyan, re- 
spectively. You can [juke in a new value 
for the border color (5:i28(l) or the back- 
gtourtd cohu- (5'i2Hl), bui all you'll get 
is a momentary Hash, and ilie colors 
instantly return to black and cyan. 
Mere's the machine language source 
code for the routine. 



* = $C0( 


)(> 


; the code is 
liUiccti at -hil.-iii 
decimal 


border ts.'iHyKO 




background = 532H1 




ii'q\'ec = 


SOSl-! 




irc^oUl = 


SKA31 


; Ihis is the nor 
nial atidress 
found in 
SOSl-l/SOSIS 


iiiii 


sel 

Ida #<irq 

Idy #>irq 

sia irqvfc 

sly iiqvec + 1 

cli 

ris 








iiq 








Slit lempa 


; store ii, >; 
and y 




SIX tempx 






Sly teiiijjy 






Ida bdcolor 


: border color 




sta border 






Idx bkcolor 


; background 
color 




six backjj'round 






Ida lempa 


restore a, x 
and y 




Idx tempx 






Idy Lenipy 






jmp irqold 




li.'iii])a 


hyl 




Ifiripx 


.l)yt 




ieinjjy 


.byt 




bdcolor 


.byi 


black border 


bkcolor 


.byt 3 


cjaii back- 
ground 



.end 

If you'd like to see what it docs, just 
type in tlte sltort Basic loader behnv. 
Once run, it places the machine lan- 
guage routine at -19152 and activates it 
with a SVS call. The border becomes 
black and the background cyan. Try 
changing the colors with Pokes to ii32HQ 
(border) and 5^281 (barkgiound). lb 
get rid of the effect, press (lie rtinstop/ 
restore keys. 

10 RtlM SIMI'LE IRQ DEMO 

20 Ri-.M 1.0L' WALLACF 
30 RF.\t RLN .\IAGAZ1.\E 
40 AD= i91.')2 

n(> READ A:1K A = - 1 THEN SVS 
49152:HN'D 



fiO POKE AD, A; An = AD + I 

70 OOrO 50 

HO DATA l20,169,l3.I6(M9a,Hl,ao,fl 

!iO 1).-\TA l-tO,ai,:i.H«,!lli,l-ll,K) 

100 DAI A H)L!, I! 2.47, 192,14 0,4 H,ll!a 

110 DAIA 17:M!),lf>2,14l,32,20H,!74 

120 DATA 50,192.l42,.'5,'i.20a,17:i,4(i 

L'iO n,'VrA I<.!2,174,47,i;)2,l72,-!K.102 

140 D.'VFA 7r),49,2;l4,0,0,0,U 

i,fio n.'ViA;i.-i 



Ql have a 0128, 15-11 and Ohidalr, 
120 printer. I'm pretty new to torn- 
puling, ami J can't figure out how to list a 
Basic 7.0 program to m\ printer I've tried 
the Open (ommand, but it isn 't working quite 
right. What I need u explicit instructiuns! 
■— G. SlOJMOVlClII 

Phoenix. AZ 

A As Alf would say, "No |jioblein!" 
All you need to do is load (be iiasic 
program, then, with yom luiriter on. 
lyjje the following in Direct mode. (Di- 
rect moile means just type it and press 
return.) 

Oi'EN 4.4.7:CMD 4:LIST:l'RINT#4;CI.OSF. 4 

Your program will be primed on your 
printer, just as it appears on the screen. 
The only exceptions will be Quote 
mode cominantls, whicli, depending on 
your juinter's interface, will be nans, 
laicd iiilo either ASCII sequences or 
graphics characters. 



QCan Commodore 64 and l28progiams 
be converted to run on an IBM done 
XT, with .MS-DOS and GW liasir? 

—'i'. Wll.DKR 
PETERHOROtt;H. NH 

All the jirtigrams are sim[)le Basic 
programs, it is ])ossible t<i convert 
them. However, if they use graphics, 
sprites, soutid commands or any other 
nuichine-spetillc abilities, the conver- 
sion ]ji obleitis become significant, since 
IB.Vl clones have limiti-d sound, no 
s])rites and different giapbics resobi. 
tions. Also, you will have to rewrite any 
disk accesses, as they ttse different coin- 
man ds and techniques. 



QHa.\ the "garbage collecting" problem 
vihen Ming large arra\i on the C-61 
bem corrected in the (:-t2Hf 

— R. S. DEFREITAS 

Lake Havasu Citv, AZ 

A Yes, it has. Since the 128 has two 
t)4K RAM banks, one is dedicated 
to the Basic tcxi (bank 0) and live other 
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to li;isic variables (biink 1). On ilit- 128, 
cacl) siiiii); has :i "|>()intur" lo ihv vaii- 
ablf iisiuB if- wlii' li makL-s j>atl>a[;(.' col- 
left ion (wliich nu'aus lo discaui iimised 
sttiiij^s and t;oiiT])att the nifiuuty in- 
quired to store them, freeing it for other 
uses) iiHieh, mvith Taster than on the C4. 
Essentially, ihe 61 has to search the en- 
tire variable list for matches lo (lie 
strings in order to ])ei form garhaRC col- 
lecting. Ihe I'iH's inetluxl is possible 
only because of I lie larj»e an in mil of 
RAM available for variables. The (i4 
doesn't have dial luxury, so ii uses the 
slower hut more efficient method. 



Ql've been writing tin miventuri' game 
in Basic on my CI 28. Vvf gut ten to 
Ihe stage ivhfre I'm able to pSay it, but after 
a certain number of entries, I get an Out of 
Memoty message. 

My manual states, "Either there is na more 
mum for program eitde nnd/or program vari- 
ables, or there are too man\ nested I)ii, I'or 
or Ciosnli statements in effect." 

I asstime that there are too many Ivr-Wxt 
loops, because my program uses tln:u' to de- 
termine its jiext actnin. /W tried ming tlie 
Trap .statement, (nit that only results in a 
computer lockup. 

Have v>u any rnggestions"? 

— R. lAKl.nSCH 
Wi(:k[,iiti;. OH 

Aliicre are a couple of jjo.'.sible 
problems, [''irst, you niay he out of 
variable memory. Even though there's 
a G'lK bank in the 128 set aside for 
variables, it's not difflriilt to run out of 
memory, if you use enough variables. 
Consider this DIMension slatemciit: 

!)IM AS(2I'I14) 

This allocates enough menioty for 
21,414 string variables in the array 
AS( ), leaving four bytes free. Increase 
it to 2I,41.'i, and you gel an Oiii of 
Memory error message. You're prolia. 
bly not using arrays lliis large, but it 
lakes <nilv a tew multidimensi<inal ar- 
ravs to eai up all vour variable memory. 

A more likely possibility is that you're 
out of stack space. The computer re- 
serves a section of memory called a 
stack, where it holds information it will 
need later. It's called a stack because 
programmers like to think of it as a 
stack of values and addresses, witli the 
niosl recent addilion tm die bottom. 
Whenever you use a Do. Loop, a Do. 
While, a For-.\e\i loop or a C'rosub in a 
program, an entry is placed on the stack 
so the computer c.m find its way hack 
when executing the loop or siiliroiitine. 
If you're jumping in and out of loops, 



or doing recursive calls of a subr<niiitie, 
you tan very (juickly run out of slack 
space, resuhing in an Out of .Memory 
error. .\s an e\.un]i!e, enter ibis one- 
line program and run it: 

10 f;(>SU13 10 

You'll find that almost as soon as you 
press return, it will prim an t)ui of 
Memory error. Ihis small program has 
Tilled die stack liy repeatedly calling 
itself, and never reach i tig a Ketiirii slate, 
meiil, which would remove an entry 
from the stack. 

Clheck your program again, and per- 
haps you will find that one of tile above 
is causing the problem. 



Ql've been ttying to join together two 
(^-128 programs by using the command 
Concat "Part2" to "Parti". I've ol.so renum- 
bered the programs so they don't hove over- 
lapping line numbers. The problem is the 
('.-12H keeps giving me a Hie Type .Mismatch 
Error message. What am ! doing wrong? 

— jAv c;rken 

PAIIOKlil-;, FL 

A The C-128 is already telling you 
what is wrong widi its error mes- 
sage. The error message means you've 
told your compuier to merge I wo pro- 
gram llles, yet Concai is used only for 
data files. To join programs tngelher, 
you'll need some sorl of append utility 
program, of which there are many, 
('.heck your local user's group library or 
BBS — vou mav find one there. 



Q/'m trying to program sprites from Ba- 
sic on my (i-6d, and I'm luwing prob. 
lems getting more than one sprite tti come on 
at a time. .Assumiiig the variable V (for VIC 
It) is equal to 532-IH, and S is the sprite 1 
want to turn on (0-7), / «rji then turn on 
any .sprites I u'ant Iry issuing POKE V'' + 
2/,2h.S'. Hut when I try calling up a second 
sprite, the first one turns off 

The line I use to turn them on is; POKE 
V-^-2l,2\0:POKE V^-21,2M. This should 
turn on sprites and I, but instead, sprite 
comes nn for a second, tuuis off and then 
sprite 1 is 07i, What's going nn? 

— Sn.WN ZocnvsKl 
Cleveland, OH 

A The problem is created by your 
use of two I'okes instead of one. 
V + 21 is the Sprite Display Enable reg- 
isler. and each of the eight hils in thai 
register determines if a sprile is on or 
t)ft. II the bit equals 1. the sprite is on; 
if it equals 0. the sprite is off, So (loking 
210 turns on s|nite 0,21 1 turns on sprite 



1 . 2 It) sprite 2, and so on. But by poking 
in each value i>ne at a time, you turn 
off all the preceding values. Using 
i'OKKV ■t.21,2t(> + 21 1 will allow you lo 
turn on two sprites at once. 

The flip side of the problem is how 
lo iiirn off one s]nite without turning 
off the others, which can he difficult if 
vou don't know what otlieis are t>n. 
.\g;iiit, wc can use the Poke statement, 
hut tliis time we combine ii with a Peek 
command. To turn off a sprile S with a 
value of 0-7, you'd enter POKE V + 
21.(PEEK{V-^2■l) AND (2-'Jr)-2IS)) in 
vour program. 

Take a look at what this rather cryptic 
line does. Eirsi, ii uses the Peck com- 
mand lo get the romciits of memory 
address (V -<-21). 'Iheii it performs the 
Hoolean function .-\.\'D on that value, 
using the eX]nessioii (2,'),") -2 IS) as its 
aigmnent. If S = 0, then 2."i.=J - 2IS = 2.54. 
AN'Iling the value found at V -f 21 with 
2.") I turns oil liii if it's on, and leaves 
it unallered if it's off. Finally, this new 
number is jiokid back into memory 
location V-t-21. In general, we can use 
die above procethire to selcf lively turn 
off any bil in a byte. 

■file earlier example above for turn- 
ing cm two sjnites at once is fine as far 
as il goes. But su[)pose we waul to turn 
on a specific s]nite without (hanging 
any of die oihers. We can use a varialion 
of ihe Peek and Poke slateinellt above, 
<mlv this time using the boolean ()!< 
function to seleclivelv set a bii: POKl\ 
V -t- 21,(PEEK(V + 21) OR 2 IS). Again, S 
is a value belween and 7 that repre- 
sents the eight S])rites. This Poke will 
turn on any of die eighl spriles, and 
have no effect on the others. You could 
use these two Pokes as subioiilines. 
which you would call to iiirn on and 
off any sprite. 



Q Could you give me a .short and simple 
example for performing basic di.sk com- 
mands? I'm a MTV owner, and the 15-1 1 and 
/ ?/y manuah ore quite conjtaing. I have to 
dig hard to find ichat I need! 

— Jerry (itii.DsiEiN 
New York, NY 

A You're right about the manuals 
being confusing to the new owner, 
lint, in general, it's a good ide;i for the 
beginner lo study the manuals that 
come with die compuier; they'll begin 
lo make a loi more sense after a while. 
Ill the ibilowing examples, the C-(i4 
Basic 2.0 version is given first, followed 
bv the C-128's Basic 7.0 syntax. I used 
Ihe generic IH.FNAMF. or DISKNAME 
in all cases. Rejilacc ihein with your own 
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illc or disk iiaiiic when you're using iho 
fxuinplcs. All ((ini mauds ;issiiine you're 
using drive H, but you could dusnge 
ihem lo v\-ork on other drives if tluil is 
ueeessarv. 

To read a diicctory: 

CfVJ: LOAU "S",8<re[iini> 

LiSI <i eiurn> 
CM 28: DIRFCriORY 

To load it [irognun; 

C-(H: L(Ml> ■■F[l,F.NAMK",H 

Cl^H: DLOAU "FHJiNAME" 

To sa\e a program; 

C-64: SAVK "FIl,F,NANfF.",8 

C- 1 28; DS AV 1 ; "FII .F,N AM I-:" 

To verify a |uo};rarti iu meuiory wiilt 
one on disk: 

{Mil: VEIiIFV"ni.F.NAMK",8 

C- 1 28: DV F.kll- V'FII .F:N AME" 

To formal a disk; 

CIV!; Ol'KN lS,S.lD,"Nf):OI.SKNAMF. 

XX":CLC).SE If. 
(M2H: Hi- AD Eli "U1SKNAME",XX 

(Note: XX h ,u\) two uumhers or char- 
acters to be used as a unique IU Jiumber.) 

To erase a file: 

CM: OPEN' l.).,H,ir>,"S{):FlLENAME": 

CLOSE 15 
C12H: SCRATCH •Flt-ENAMF," 

To renauie a filer 

C-fU: OPEN i:i.8J5,"R():NEVVE[LF. 

NAME = ():C)i.n["lEENAME":t:i.OSE ITi 
(M2fi: RENAME "OLDFII.ENAME ■ TO 

"NEWFII.KNAME" 

To iiiitialiy:c n drive; 

Cti'l: OPEN ir>,8.lr),"l(l":t:i,OSt; 15 

CI 28; DCI.EAR 

To validate a disk: 

(Mil: OPEN ir),H,15,"VII":C;[,OSE 15 

(:i28: COLLECT 

To swiich a I'l?! to 1541 mode; 

C-fil ;ind Cl'JH: OPEN 1 5.8, 1 .';,"U()> 

M(j":c;lo,se ir, 



Q/'m writing a program on my C-64 ami 
would lih/' 1(1 know how lo miter the 
COihw fornuiki fur lliv trigoiionwtrir .mliilion 
of a trianj^lc whrti Ihi- thriT siiSr\ arr S<nimm: 
cosA - ib^ + ( •' - <i-)t2hi:. SitfipoM- tlii' sides a, 
b and e are H, 9 and 10, resperlit'ely. 

— C:. J. F.RKER 

Cleveland, OH 

A To employ trigonoineli ic tVuttui- 
las (or any other tiiaiheuiatical 



expressions) in a proj^rani, you'd iisc 
Hasic 'J.O syntax. Tor the t\;uiiple voii 
give, you'd enter: 

lU A = 8:15 = !1:C = 10 

30 CA = (Bt'i + CfS- At2)f(L»*B*C):REM t;A 

EQUALS COS OF ANCLE A 
.'id PRINT "COS A = ";CA 



Q/ 'd like lo !«/■ my ! 7 '>() HA M i'xp/in\ion 
module mtit programs I'm writing lo 
slit ft stored data to the HEV, retrime the 
data fur use in the programs, put the data 
hark into the unit so that I ean me RAM 
memory for other work, and save the RAM 
data to disk for later lae. Could you gii/r me 
tin example of how to do this? 

—Robert K. Porter 
Canfifxd, oil 

Aril give you two exatiiples. The 
first is to use Commodore's officiid 
R,'\MnOS software, which simulates a 
higli-spced disk drive. With a R.AM 
drive you c;iu (juickly loiid and save 
your dat;i between the prograni you're 
writing and the drive. Yini can even 
chain several program.s together so ihey 
act as one. .And it's done so fast that it's 
usually transparent to the user. 

Ifyou recently bought your RAM car- 
tridge, the RAMDOS softwaie was )nob' 
ablv already on the disk that came (vtili 
the unit. E:irlierbtiyers ol a 17(10 or IT:"!!) 
utiil ditl tiot gel il. as it wasn't completed 
until this year. Commodore has now re- 
leased it for public use, ;uid you'll find 
it on most commercial BRS networks, 
such as Qu;uit uitiLiirk, CF.nie and 
(CompuServe. You'll also fuid it on niany 
siii:UJel lUiSs, iiuluding /ft'.Vs own 
Kl^Ntiing Board ((>0:i!)2-l-!l7()l), 

The seciitid example is to use the 
Basic 7.1) commands Slash. Fetcli and 
Swap to store and recall data from your 
programs, I've given the commands and 
their parameters below. 

EETCH.#11V 1 ES.INTSA.EXPSA.F.XPB 
STASll.WliVTES.INTSA.EXPSA.EXl'B 
SVVAP.#[lVrKS,INTSA.EXl'SA,EXI'H 
#1\YTES — ilic number olhylcs Kil't'lcli, Stash 

tir .S\va|> 
IN'f S.A— the stuning address ((1-65535) of the 

(ompulet's jncniorj 
I-lXPS.-\— till- siariiiijr address (0-65.73.5) uflhe 

e.>;|):uisiim R,-\.\I 
EXPB— ihc iiR-iutiiye.^ipiitisiim hank tMiiiibcr 

(d-l lor 171)0,0-7 for 1750) 

The comiuimds themselves arc quite 
easy to untierstand, but you must know 
a great deal about die I28's memory 
organization in order lo use them. I've 
written a s;uuple progiain that stores 
the 128's •lOcohituii gra[>hics screen in 



the RA.\! expansion cartridge, waits for 
a keypress, then restores it. 

1(1 (;RAl'tllCI.I:RE.\l llKiilRFlSOlX'tlON 

20 REM CREAfl-; A SCREEN TO STORE 

SO l-OR 1 = 1 TO 1 U 

-10 C = lNT(Ri\D(l)*l(i)+ I 

50 COLOR !,C 

lift X = 1NI(RND(1)»;12(I) 

70 V = INr(RND(l)»201l) 

HO XR = lNl(RNn{l)*!l!l) + 2 

90 VR = XR+.7(i!l 

101) CIRCLE l.X,Y.XR,YR 

1 10 NEX r I 

120 STASH <)200.71fiH.II.O 

130 GRAPHIC l.LREM CLEAR THE 

SCREEN 
1 10 C;i: TKl^Y A$:REM WATT UNTIL A KEY 

IS PRESSED 
15(1 FETCH <)200.71(iH,(),0:Ri-;M RESTORE 

Tin: SCREEN 
Hid GETKEY AS 
170 GRAPHIC 

This is just an eN;nuplc: there arc 
other ways lo wrile the program, de- 
pending on ytntr needs, such as having 
different graphic or text screens, hanks 
of sprites or function key dennitions. 

SOFTWARE 



QA CI2S pro/rrnm I'm writing needs to 
know what disk drive it was loaded 
from and the amount oj memory jnesent. 
Short of the program ashing the \tser, is there 
a way to tell what expansiou RAM is present 
and which drive (8-11) should be luctl? 

— Tom McDi'NNEL 
Wf-SI 1*al.\i Beach, IT, 

A Yes, there is. Y<ui can tell what 
drive was last :ict('ssed with a I'eek 
to SB.A, ami by placing a line at the 
beginning of your jirograiii that Peeks 
that address, you'll know what drive to 
default lo. Mere's an example. 

10 nN = i't-:i-.K(i)EC("BA"n 

20 »LOAl>"Si'RTTl->i', 11I),L(1)N + 0) 

Tlie vmiable DN is .set to the {hive 
last used, so if you loatl a:id run ihis 
program fiom anv drive, the sprite data 
is loaded from the s:une drive. 

.As for checking for 1 7XX R.\M expan- 
sion cartridges, aj^ain, a stnall loiitine 
at the begiiming of your ]nogi:un can 
handle that for you. l''or exatnple; 

10 A = ,')7(KI4:POKE A.255:fF PEEK{A> 
< >2,^"i THEN RX = (l:COTO .30 

20 POKE A,0:A = 570«H:RX= 128; IF 
(1*EEK{A) AND 1 ii) Tl lEN RX = 512 

30 REM RX CON TAINS THI-; .-V.MOUNT OF 
EXPANSION RAM PREISENT 
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This sliml roininc will ifdini ihe to- 
la! iimount oi' expansion iLVM .ivailnble 
in thf variable RX. If you have a 1700, 
RX=128, and if a 1750 is present, 
RX = ril2. If tlie system is un expanded, 
the value of RX will be 0, 



QTlif Advttnml OCP Art Stiitlh mves 
ihf muiiifolor ftkUtrr I cirttU-d into 
one lisrj^i' -tO-bhrk fdc. Ihiw fitii I si-pimde 
it into aiiitjiiiiu'iils that I am loud directly 
in CI 28 mwk, titid hotu am I load it once 
it's separated? 

—Steve dkLassua 
Florissant, MD 

ATbo best iiK'lhod is lu bleak down 
tlie niiihicoliir pit line file into 
f<nir parts; a biiniap (KK), two color 
memories (IK each) and the back- 
ground and border colors (two bytes). 
These tan then be individually loaded 
into the areas of the Cl'JH's memory 
that arc neeessaty to display the picture. 
For ibis, 1 wrote two simple ISasir 7.0 
[irograms. "ihe IVst (Listing 1 ) ctnivcrts 
mullii (il<n" Advanced t)(^I' .Art Studio 
pictures into tlie four files. It |)it)mpts 
vou for the name, then writes them oui 
with the siilfixes RM (bitmap), CI (color 
inenini-y I), ('.'2 (color memory 2) and 
C;i (baekgroinnl and border color). 

The seconil listing, using Basic 7.0, 
loads atid displays the picture, using ilic 
four Jlk's inatic with Listing 1. It can 
easily !)e used as a submiitinc in ytntr 
programs to display your pictures. 

REM 1,1,S11N{; I— CXJNVERT 

10 PRINT ■■IHIS CONVERfS ADVANCED 

ARI S I LDIO" 
20 PRIN f •MLLllCOl.OR MODK 

i'K:ri"Ri':,s lo i-*OL'R eii.ls" 

;l() PRIM "If I.Yf CAN BE1.0.\«ED EROM 

B.-^SIC 7,0" 
40 PRINT 
.-lO FRlNf "NAME (MPIC SUEEIX IS NOT 

NEEDED)" 
60 INPUI- 1-S 
70 NS = l-S + "[Hi spates f" 
80 NS = I.i;n'S(\S,12):NS = m + "MPIC" 
90 BANK 

100 BI.D.An (NS),1J0.P8]92 
lUI BS.WK (FS-f ".BM").B0,U8,P8I!>2 TO 

PllilUi; 
120 BS.-U'K (ES-*-",CI '),B0,U8,l"lfil32 TO 

P17I9'J 
l;S0 RSAVE (l''S + ".C:2"),D0,U8,PI720H I() 

PIHUOH 
140 iiS.Wi-; {KS-r".C3"),B0,U8,PIHi!08 TO 

PI8210 
I.iO B.-VNK 15 

REM I.ISIINC; 2 — DLSPLAV 
10 INPirr "Plf.TURK NAMfViT'S 



20 GRAi'iilCS.l 
■M) POKE l.PEEK(l) AND L'.M 
41) BI.OAI) (E$ + ",BM"),!10,PHI'.!2 
,f^^ll BI.OAD (E$ + ".C:i"),il(),l'7I(W 
(iO HI.OAI) (l'S-f".C:'J"),HI,f|,Pr)5296 
70 BLOAD (ES + "-f-'").Hi;i-''-'>-^280 
80 tJEIKEV AS 
90 GRAPHICO 



HARDWARE 

QWhen the C-128 came out over a year 
ago, I tbotight that besides being able 
to lisf my C-64 games ami programs on it, I 
foulil also take adviintaff of its SO columns 
pir Kioril proirssingantl its superior graphits 
to play better games. I'm having no problems 
using m\ I2S ivord prorrssor, hut lam having 
trouble with games. 

for example, while the 6-1 mode may be 
compatible with C-64 prograrm, the 1371 
disk drive, apparently, is not. Many of my 
gamfs do not leorh on the 128 in 64 mode 
when I use them with the 1571. 

Sinee almost all romputer outlet stores 
won't take back a program package that's 
been opened, it seems to me that it is up to 
the .software manufactttrers to alert the con- 
sumer to any quirks. 

— SCO IT Angstreici I 
Ciir.RRY Hii.i., N[ 

A The problem you're having with 
software loading is related in die 
ptiiblem with returning it to a store 
once it's been opened— software piracy. 
In an effort to stop the wanton copy- 
ing of software (particularly games), 
inaiinfaciurcrs resort to various copy- 
protect ioti schemes. Many of these tech- 
niques iiiili/c specilu areas of memoty 
or s|iecillc routines within the 1511, If 
everything isn't Jiisi jjui feet (such as a 
printer not connected or a cartridge not 
plugged in or there's a full moon), the 
program won't load. Even if the drive 
is slightly out of aligtnrient, it might not 
load. So you shouldn't ()c surprised that 
some software won't work on the 12K 
in fi'l mode when you use a ir>7l. 

However, there are a couple of tricks 
yiH! can try to get your 1571 to load 
1 ,")*n formatted programs. Sometimes 
the 1571 is still in 1,571 mode, which 
might be the case, lor esample. if yon 
started out in 1'28 mode and typed in 
GO M, The drive may iu>t have been 
.set to 1541 mode when you entered GO 
64, li that's the case, type in 

Ol'EN 1 .'),8, 1 3,"C0>.\I0";CLOSEl 5 

to reset die disk drive to single-sided, 
1 54 1 lunde. 
Atiuther trick is (o hold down the 



NOTHING LOADS 

YOUR PROGRAMS 

FASTER THAN 

THE QUICK BROWN BOX 

A NEW CONCEPT IN 

COMMODORE CARTRIDGES 

store up to 30 ol your (avoriie progFams In a 
single batlsry-backed cartridge for easy, instant 
access. Change conlents as often as you wish. 
The QBB accepts most unprotected and "fro- 
zen" programs including tfie orly word proces- 
sor tfial saves your text as you type, "The Write 
Stuff," and ttie 128 terminal program, "Ultralerm 
III." Co-exists with GEOSSj and Commodore 
Ram Expansion Units. Loader utilities included 
for C64 and CI 28 modes. Price: 32K S99; 64K 
S129; Utilities Disk S6; QDisk (CP^fil RAf^ Disk) 
S10: Packages: 

64K QBB ^ Write stuff (C64) $139 

64K QBB f Write Stuff (128) S144 

64K QBB * Ullraterm III (128) S139 

(Add S3 s/h & S3 C.O.D.; 

Overseas $5; MA res, 5%) 

Brown 
Boxes (nc 

26 Concord Rd. 
Bedford, MA 01730 
617-275-0090, 
617-862-3675 

"GOOD RELIABLE STUFF" INFO 

(Jan/Feb '88) 
"A LITTLE GeW'TWIN CITIES 128 

(MarMpr 'BS) 

-YOU'LL NEVER IDSE YOUR COOL. 

OR YOUR PHOGRAIvfS" RUN [Nov '87) 

"A WORTHY PRODUCT— LONG OVERDUE" 

AHOY (Feb '88) 
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BIG BLUE READER 128/64 

COMMODORE <=> IBM PC 

File Transfer Utility 

Big Blue Reader 128''S4 is ideal tor Ihiosa ^ho use 
IBM PC cofTipalible MS-DOS computers ai work 
and ha^e the CoTimodorD 123 or 64 at home. 
Bl!;f BFufl Ra*dttr 1?S'64 is nol an IBM PC omumEOf, 
Cul ^athi^r :t 1-5 a quick anj easy lo use rile iran$lef 
program (Je'&»fli*cS to tfiiinsier ward proc9SSin{f. leil 
and ASCn Mm bclween two snuroif diflorom diih 
formats. Commodorft and IBM MS-ODS Bptfy 
C!28 Sf^ C£4 afipficaJions afe on ffltf iame diik 
and requires eiShar ttte 1B7^ of P.55T tSuk dftve. 
(Transfer 160K-3I1OK t2t inch i. 720H 3 5 »nch 
MS-DOS disk Me5 > 

Big Glue Read*r 12e suapoMs; C-l2a CP/JVl Mes. 
}7xs HAM ejfp. 40 and SOcotumn r7io<Jes. 
Big Blue Rsadvr £4 VvrSion 2 is 1571 and 15>8l 
compalfble and \% aviilable separfll«ly tor $23,951 

BIG BLUE READER 128/64 $44.95 

Orde; by ch«ch. m^riey firder, or COO. 

No Credit card O'^dO'S pVr.l je? Forcigri orders jfld J4 

F'(j*j sh.pf>ng find hLindlme 8BR I2afi4 available as 

an upg,rad42i \o currimi ui^ers lor Si& plus orifjinEil d>s.k. 

CAtL or WRITE for more (n)arma(ion. 




To order Call or write: 
SOGWAP Software 

I [.S Bellmiint H(i:ui; Decatur, IN -)f)7:i3 
Ph (219) 724-3900 
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Conitiiuddre key when you ()owcr up 
or icsfi iIr- computer. Tlt;il will take 
yoii ciiifctly til CO! imd 1511 inutlcs. 

H yoii'rf siili fN])eiiL'ii(iii); iirohletris. 
liiere iii;iy ht- Mibde tiif fcreru es hL-ivveen 
Lhc 1511 niul 1571 ROMs, Iiikf the- 1571 
ROM to a Cninniod{)re service center 
for upKr;i(liiig. There will he a charge, 
however, since it \s not d free upgrarte. 

Ql Iwpr you can help mf urilh a problem 
with my ('.■ I2H. When llw aim/mlfr is 
in 80-Column RGB mode, small \t]iuin'\ ap- 
pear on the. iircen in column 21. While ihey 
don 'I interfere with anything, lliey do not look 
veiy guixl when I'm lamg llie screen! This 
does not occur in -HMUilumn mode. .\ns iiiea.'i 
almut what is wrong? 

—Thomas 1-\)une\' 
Anderson. IN 

Alt is very likely one of two tilings. 
Either you have a had H5f)H video 
display chip (which creates the KOcoi- 
uniii display), or one of the two RAM 
chi[)s lor die H5(i3 (it has its own video 
RAM) is had. Either way, it will re(]uire 
a trip to your local CBM service tenter. 
Since the R,'\Ms are soldered to the 
mother board, replacinj^ them is a joh 
for Li skilled electronic technician. 



QAhoul a year ago, I hough i the new 
Commodorr I J50 imntse, and /'if* been 
iLnng it with programs like I'ochet Writer 2 
and GEOa !2H. Now I hear about a neio 
mouse called the 1351. What's tSu- difference 
between them, and should I think about 
changing to the new version? 

—C. C.\[,V!-T 

Gardkn c;rc)\'i;. CA 

A The dillurence is like night and 
day. The 1350 really isn't a luoiise, 
although it looks like one. In reality, 
it's a joystick in sheep's — cr, mtmse's — 
clothing. It's only able to report to the 
coriipuier movement in eigli! directions, 
just like a joystick. The 1'151 mouse, on 
the other hand, is a "true" mouse. Ii 
reports on movenient iu 250 directions. 
(The 1351 can also be used as a standard 
joystick if needed.) This makes it a per- 
fect proportional controller, and it's one 
of the finest peripherals ever to come 
out of ("ommodoie. With software de- 
signed lo use it as a mouse, its move- 
ments are smooth and lluid. I've seen it 
priced at under S35 — a bargain — and 
one 1 reconiniend. 



/ recently received an SX-6'I (an older, 
' portable C-64 tmth built-in drive and 



five-inch color monitor^ Do the comments I 
read about the (:-6-t and the 1 54 1 drive also 
apply to my SX-6-f? .-Msii. I was given .••ame 
oldei prngiams like The .Manager and The 
Printed Word. I low do these fomjmre with 
newer programs like Pocket filer or Pocket 
Writer 2? 

— 1., ROWLflS 

Jackson VILLI-: Hkacil fl 

A Yes, for the most )):iit the .SX and 
(:-f)l/I511 are the same. ['lie. SX lias 
a diffeieiit default color on power up, 
though, and there may he some minor 
differences in the 1541 ROMs. As for 
the older software, if it's adcc|uate for 
you, then you need noliiing else. Mow- 
ever, lhc newer software [lackages (es- 
pecially I'ockct Writer 2) are faster and 
luivc more features. 



Q While itmig my C- 12S in ('-6( mode, 
I formatted a disk on m\ 1571. The 
disk directory showed that I had IJ2S blocks 
free. I>ties this mean my 157 1 fmmattrd both 
.%ides of tlic dish? 1 thought that happened 
only when yon were in C.-IZS made, 'ihen, 
when I turned it over and tried to get a 
direeioiy, it responded with Drive Not Ready. 
What does this mean? 

—J. P. Stevens 
" Exeter, NH 

All means you've formatted (kjiIi 
sides. Evidently your 1571 was still 
in 1571 niode, not 1541 mode, fhe L571 
can he used w'ith the C-lvl, although il 
doesn't allow the high-speed data trans- 
fer in C;-61 mode. However, you have a 
misconception about how ihe 1571 dou- 
hle-sided drive works. It is nol ihe same 
as formatting a disk with the I 51 1 , llien 
turning it ovei and formatiing ii mi ihe 
other side, w4iich results in essentially 
two separate disks, each with its own 
directory. To get at the data on the back 
of this 1,54 1 -formatted disk, von must 
lurn it over. However, when v(ni ffumat 
with ilie 1571 in 1571 mode, both sides 
of the disk are formal led al llie same 
time. Ihey share the same directory, 
and the drive can access ihe data on the 
back without turning over the disk. 
When you turned the disk over, it was 
in the drive upside down and the di- 
rectory couldn't be found, as if the disk 
were unformatted. This resuhed in ihe 
Drive Not Ready error. 



Q/n the November 1987 issue n/RUN, 
you ran a review on the software Basic 
S. Rei'ieieerfohn Premack states, "Upgrading 
to 64K requires swapping ymir machine's 
4416 or 4164 RAM chips for a jiair of 



4464s." To me, this statement is confusing 
because there are two rows of 4164 H,\M 
chips, not ju\t a pair of chips. If iinh a paii 
of chips is to be replaced, then whit h pair f Pm 
interested in buying this sofware, but J 'd also 
like to upgrade my f."-/2<S' ((/ tlie sa/ne time. ! 
think your articles should be ei bit more tech- 
nically accurate. Thanhs for yottr help. 

—Francis ]. N'aperskv 
Owi\c;.s. Ml) 

A flu- 4Hil RAMs Jolm was refer- 
ring to in his review ol liasic 8 are 
those for the 85133 80-cohmm video dis- 
play chip. They're inside ihesmall silver 
box on the inotheibr>ard (which also 
has the 85(i3 and \'ic-II graphic chips). 
I'lease lie aware that, since the chips are 
si)l(k-red lo the niotherlmard, removing 
them and installing the two 4-HJl R,\Ms 
is not a job for the casual user, even if 
you've done soldering before. If you 
want the (i4K for Basic K (and I rec- 
ommend it), take the chips and sockets 
Kj a local Conimoiiore service center. 
1 1 shouldn't cost yon iiu)re than S3.5 to 
insi.ill. Doing it ytmrself can lead to a 
damaged coni])uter. (.\ote: {'-128Ds al- 
ready have Ihe G4K of VDC RAM as well 
as (lie latest ROM cliifis. I've heard of 
pco]]!e "upgrading" their C-128Ds when 
theie is no need to do so.) 



Ql alnioys buy siugle-sided disks to save 
money. When I want a double-sided 
disk, t make a little notch on the left side if 
the disk (from the front vieiopoiid) with an 
ordinaiy hole-punclier. Is this safe? If nol, 
then what can I use to malie a notch? 

— \V[I.L1AM A. ELl.ERUK 
Dalton, ma 

A Using a hole jimuher lo notch a 
disk is fine, so you don't need a 
sj)ecial gadget. But I wouldn't recom- 
mend what you are doing. When a disk 
is manufacturetl, holli sides of the 
sheets are graded as to their tjualily. 
Only if a disk ])asses the standards for 
lUiuhle-sided media is it used as a dou- 
hiesided disk, fhe siugle-sided disk 
vou'le using is [irohahly made from a 
hatch that failed the tjuality standards 
for double-sided media, and is only re- 
liable when the proj)er side is used. 
While you may be able to use many 
disks this way. socnier or later you'll lose 
some valuable data or programs. Since 
disks are now relatively ineN])ensive, it 
doesn't pay to take chances. 



Q/'ve read that the empty RO.M socket 
in the C-128 is mapped into memory 
locations S80()()~$FFPF, and that memory 
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expansion is in the smiif; Socalions. ! had 
planned on buying the Ihiir 8 ROM chip 
and the 1750 RAM expfinsitnt unit for luc 
uiith Basic 8 and GFOS 128. Will the ROM 
interfere with the RKU? 

— F. KRANZjR, 
Seymour, WI 

A There's no conOici tietween the Ba- 
su: 8 Rf)M chip :iik! Ihc 1750 RV.V. 
The ROM is unused iiiuliriinsparont un- 
less installed into memcuy dining sys- 
tem startup by holding down the control 
key. It works well with the 1750 REU, 
and, when not activated, doesn't inter- 
fere with any knt>wn software. 



What h the best disk drive to lae as <t 
' second drive? 

— M. R. HaUGE 

Sierra Madre. CA 

Alt depends on your needs and your 
pockcthook. If you have a C-6') 
with a 1 54 1 drive or a ( :• I '2H and a 1 57 1 , 
1 would serioiKly consider the 1581 li'/a- 
inch drive. l"or less than $200, it stores 
over HOOK and in 128 mode is very fast. 
If you want to stay with 5 'A -inch drives, 
then a second 1 541 or 1571 maybe what 
you need. Or, if you have the money, 
you conld get a hard drive. 



QJ have a C-64 and plan to upgrade tti 
the C-128D. I've heard of the 1750 
RAM expansion cartridge and am wondering 
if it works with the 128D. Also, does it work 
with GF.OS, perhaps by allomng more of the 
program to remain in memoty? If I get a 
158! drive, can I transfer my protected pro- 
grains to ilf 

— Ann Bransie'I'ier 
Laurei,, M'l' 

A The 1750 adds an additional 512K 
of memory to the CI 28, which is 
a really impressive upj^rade. It does 
have its limits, ihouj^h, heeausc it 
doesn't directly increase the memory 
allowed for executable programs, hi- 
stead, it acts as a storage area for pro- 
grams and data. However, because of 
its ability to make extreinely high-speed 
direct memory transfers (D\f As) be- 
tween the C-1 28 and the 1 750, programs 
and data cati be loaded into the RAM 
expansion unit ;ind then iian.slened 
into the computer when needed. The 
usefulness of this becomes evident 
when using GEOS, as it can practically 
eliminate the bothersome (and slow) 
disk accesses you normally encounter. 
The 1 58 1 drive can also be used with 
GF.OS 1 28 (although, at this writing, not 



wilh GF.OS 6'1), providing very high 
Sj)eed wilh 80f)K storage. You can't copy 
most piotected programs to the l.")81, 
because it's quite different from the 
1541 and 1571, but unprotected pro- 
grains usually work with the 1581, and 
many protected programs (like GEC^JS 
1 28) can use it for data storage. 



Q Several years ago I purchased sonw 
educational software jmrn a company 
called Fiiturehoase, Inc. Tiicir programs need 
a light pen called the Edumate Light R?n, 
but the company went out of business before 
I could order one. Do you know of a source 
for that light penf 

— V[RGINIA Ilr.t.BER 
SCXyftSDALK. A/ 

ANo, Virginia, they are no longer 
available. However, another pen 
should work quite well. Two of the best 
are from Inkwell Systems (PO Box 
85152 MR290, San Diego, CA 92138; 
f) 19-2(J8-87!)2). One of these is the model 
170-C, and it retails for $'.)9.95. 'fhe 
other is the 184-C, which sells for 
S59.95. Both come with some demon- 
stration programs. 

Another good light pen is available 
from Tech Sketch, Inc. (40 Vreeland 
Ave., Totowa, N) 07512; 20I-25G-()0i:}). 
Their l.P- 10 cosis S 19.95 and conies with 
a high-resolution (olor drawing program. 



QA few montfu ago / bought a 1 750 
RAM expander for my C-128. How 
can I me it as a disk drive to store programs? 
Aim, is there a program t/iat will help me 
make better use of this add-on device! 

—JOHN EAC01T 

Wot>DSTOc:K, Ontario, Canada 

A You can use the 1750 (as well as 
the 1700 and 1764) VlKM cartridge 
as a high-speed disk drive by using the 
official Commodore RAMDOS soft- 
waic. ll reccinly was released into die 
public domain by Gnminodore, so it 
should be aecompatiyiiig RAM car- 
tridges by now. However, if you didn't 
get it with the cartridge when you 
bought it, check your local user's group 
libraries as well as various online ser- 
vices or BBSs. It's also available for 
downloading from the RUNning Board 
BBS (tKB-92 1-9704) here at RUN. 



e! have an SX-64 portable computer 
and would like to add on the new 1 764 
RAa\^ expander. Is it compatible with the SX 
1541 ROM? And, since the power supply on 
the SX is ijtternal, how docs one use the nmu 



COLOR RIBBONS & PAPER 



COLOR RIBBONS 

RED, BLUE, GREEN. BROWN, PURPLE, YELLOW 



Ribbons Price Each 



Brolher M11D9 
C. Iloh Prowrller Jr. 
Citizen 12(ID/-|aOD 
Commodore MPS 301 

-MPS 802^926 

-MPS 803 

-MPS 1000 

-MPS 1200^250 

-152S 
Epson MXaO/LXSOO 
Okldala B2/92 
OkWpta 162/192 
Panasonic K-XP 1DBQ 
Seikosha SP eooriODD 
Star SQ10 
Star N1C/NL10 
Star NK1000 
star NX1000C— 

4-Color 



4.95 
7.00 
S.OO 
4.15 
6.00 
4.9S 
3.95 
5.00 
6.00 
3,75 
1.75 
6.50 
6.75 
5.25 
1.75 
5.00 
S.OO 



5.95 
9.00 
6,00 
4.75 
6,75 
5.95 
4.95 
6,00 
8.00 
4.25 
2.25 
7,50 
7.75 
e.50 
2.25 
6.00 
6.00 
10,75 



Heat 
Tranater 



7,00 

7.95 
5.75 

7.00 
6.75 
7.95 

6.75 
4.50 



7.95 
4.50 
7.95 
S.OO 



COLOR PAPER 

BRIGHT PACK 200 SheefSO ea. color: Red, 
BJusi, Green. Yallow. 9'/! x II— S10.90/ph. 
PASTEL PACK — 200 ShQots/SO oa. color: Pink. 
Vollaw, Blue, Ivory. 9'^ X 11- S10.90/pk. 



T-SHIRT RIBBONS (Heal Transferl-Call 

For Price a Avail. 

COLORS: Red, Blue, Green, Broviin, Purple, 

Yellow, Glack 



514 



COLOR DISKETTES 

DS/DD Ralnbov/ Pack, 10/pack— S12.50 



For ribtMns & pape^ rwl hsled atMve, call for price. Price & 
sp«. sutioct lo eWnge vlo notica. Win. order $2500. SSH 
S3M m;ni!Tium Visa. MC, COD 

RENCO COMPUTER SUPPLIES 

PO BOX 475. MANTEMO. IL 60950 USA 

1-800-522-6922 ■ (IL) 1-800-356-9981 

815-468-3081 
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DEALERS SELL 

Selling RUN will make money for 
you. Considaf the facts: 

Fact #1: Selling RUN increases store 

traffic — our dealers tell us that BUN is 

the hottest-selling computer magazine 

on the newsstands. 

Fact #2; There is a direct correlation 

between store traffic and sales — 

increase the number of people coming 

Ifirough your door and you'll increase 

sales. 

Fact #3: Fact #1 + Fad 

#2 = INCREASED $ALE$, which 

means rroney (or you. And that's 

a fact. 

For information on selling RUN, call 

1-B0O-343-O72B and speak with our 

Direct Sales Usnager. Or write to 

RUN, Direct Sales Dept., BO Elm St., 

F^lerborough, NH a345B. 



RUN 
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power supply that comes with the expander, 

or is the power mppiy huill into the SX 
captiblr fif litiiidliiifr il? 

—Alan TRKMiiLAy 
Christopher Lake. Sask,. Canada 

A The offichd Commodore policy is 
thai the 1764 is only for the C-64, 
and not compatible with the SX-64. 
However, iinufncially I have hccn toki 
the power supply on jiiost SX-fMs will 
allow you to use the RAM ex pan tier; bm 
be warned thai there is always the 
(small) possibility of damage. Another 
potential problem, and one more likely 
to occur with the SX-04 and 1764, comes 
From the VIC II graphic rhip. The VIC- 
II chip in some of the older SXs sitiiply 
won't work with the 1764. If that hap- 
pens, jtist have a new VICII chip in- 
stalled in the ,SX. 

Does it matter which serial port of my 
• 1 541 I connect my 6-t lo? 

—Jason Okiiru 
HI(;hlan», CA 

A You can use either port. The rea- 
son there arc two serial ports is to 
"daisy chain" a printer or multiple disk 
drives. 



Qf have two questions. First, I've seen 
C-64 software available for SAT prep- 
aration. Is there any company that offers 
C-64 -co mpa tible software for prepa ring for the 
GRE (Graduate Record Kxamination)? Sec- 
ond, I'm thinking about getting the Educator 
64 for classroom me. However, the ads don't 
specify xvhat, ifany,fonn of storage device it 
comes mih or tises. Since it appears to lie a 
C-6-1 in It CHM PET case, I was wondering 
if it uses a 1541 serial drive, as the C-64 does, 
or a 203! -style IEEE drive, like the PEll 

— J.ACK D.-\VIDSON' 

Wabash, IN 

A I checked with Beth Jala. fiWVs Re- 
view K(htor about GRE [)rep!ira> 
tion software, but she wasn't aware of 
any for the C-64 or CI 28. As for the 
Educator 64, it's a C-64 in an old style 
PET case, but it still uses standard 1541 
disk drives. Unless ttie ad explicitly 
stales il includes a drive, you should as- 
sume you musi buy il separately. 

Q/ «i(.')i a C-I28 and a 1541, I urtnt to 
upgrade my drive, as well as buy a new 
monitor. What are Ihe differences between tlte 
}571 and 15SI drives, and the 1902 and 
2002 monitors!' I've noticed that Ihe 15S] 
is less expensive than the 1571, but I'm told 



it has more storage,' h it completely compatible 
with 64 and 12H software^ 

— M K : 1 1 AK.[ . GRKKNS'I'EI N 

Oranoe Pakk. FL 

A The itiajoi difference between the 
1571 and 1581 is the greatly in- 
creased disk storage capacity (SfiOK vs. 
800K} of the 1581. But yoii'shoukl re- 
alize that there are not yet many com- 
tnercial programs available on the :i 'A ■ 
inch disks accommodated by the 1.581. 
.■\ no titer diflercnce is the I58rs faster 
load times. Also, the 158 1 can be par- 
titioned, vvhich lets you use subdirec- 
tories on your disks. 

As for software coin|>atibiHty. tu>. the 
1581 is not completely comjiatible. Soft- 
ware with disk-based copy-protection 
schetnes probably won't work, f h>w- 
evcr, im protected software or software 
that can ii.se the 15H1 as a secondary 
data drive should work well. 

.•\s for the 2002, it is Commodore's 
"universal" tnotnior. It has ccnnposite, 
RCiBl aiul RCHA ctninections, allowing 
it to work with both the C-()t and the 
C-128. Comniodore is no longer man- 
ufacturing the 1902, which is Ijecoming 
very difticnlt to get. 

The October 1987 issue of RL'\' re- 
views the C-128D, 1581 drive and the 
2002 monitor. Refer to it for additional 
infortnation. 



Qt recently read the Basic 8 review in 
the November 1987 issue of RVi<. 'The 
revie-tv mentioned it was possible lo replace 
the !2S's 16K SO-column VDC R.'\Ms with 
64K. Is it also possible to replace ihem with 
256K chips f If sn, this umuld allow more 
than one hi-res screen in memoty at a lime. 
R'rhaps the computer could be drawing in 
one screen and displaying a second. Would 
that be possible? 

— William Stottard 
P.ASc.Ac;c)ui.A. MS 

A No. it's not possible to add 256K 
RANt u> the 128 for 80-column 
display purposes. The 6-IK (using 120 
nanosecond 446-1 R.AM chips) is the 
maxinuim it can be expanded to. But 
as for the possibility of having tnore 
than otie screen in memory at a time, 
that is already quite possible when using 
Basic 8. Yoti can have uf> to four mcnio- 
chroine screen.s in memory siinidta- 
neoiisly (if yon have 64K of \'bc RAM), 
and Basic 8 is designed for drawing in 
one screen while looking at another (a 
technitjue called double bufferitig). 
Wiih the G4K yoti can also have a large 
variety of different-size vintial screetis, 
as well as variable size color dis]jlays. 



By the way, while older C'128's came 
with only 1(»K <3f \T)(' R.AM, the new 
C-128n has the full (ilK video mem my 
installed at the factory. 



Q/ liave a 64C, a lilue Chip BCD disk 
drive and a Magnavox CM .S' '•Ol Color 
Monitor 40, When I use Easy Script fir 
word processing, I only get a ma.ximum of 40 
colwii»\ of text on the screen. If I were to 
szi'ilch monitors to n Magnavox 80-column 
monitor, wo\dd the display change to SO- 
column formalT (Easy Script does have SO- 
column support.) 

—David de Roia 
Torrance, CA 

A No. Swi telling to ati 80-cottiinti 
tnotiitor will in}t change ytnn' dis- 
play, Th.it's delertnined by the com- 
puter and its software. Ihe CA'A uses 
only a 40-column te.xt display, and 
changing monitors won't affect it at all, 
TbcSO-column fortnat provided by Easy 
Script involves the tise of scrolling the 
screen, but it stilt tiever di.s[)!ays ntore 
ihati 10 cohnnns of text at a time. 

There are iwo ways to get an 80-col- 
umn display on the 64, bni neither are 
very satisfactory sohititms. One is to 
create a special character set using -1x8 
pixel cells for the font, and using bit- 
map (iiaphics tiKnle to display them. 
This is slower than Text mode, it's bard 
lo read and very meinoryin tensive. 

The other is to use an 80 cohinni car- 
tridge, which gives a true 80-coluniii dis- 
play. However, these are expensive and 
tuit su])pcnied by many software com- 
panie.s. iiatteries huludetl (now out oi 
birsiness, but some of ilieir jiroduct line 
is still available irom Electronic .Arts) at 
one time stild both an SOcolumti car- 
tridge and a word fjiocessor. PaperClip, 
that supported iL The program is still 
available from Electronic .Arts, but they 
don't cany any Batteries Included liard- 
ware, If you need customer assist. imi- 
for a Batteries Inclutled ))iudiKi, (.ill 
l-II5-578-fWlC. 



Q[ currently own a C-64, but I'm plan- 
ning on purchasing a PCI 0-2 ((Mm- 
mtidore's MS-DOS compatible computer). Is 
there any em ulalor available that uvuld allow 
me lo run )iiy 64 software on the I'CJOI 

— PEIE lil.SHliAKER 

Dearhokx Heights, MI 

A No, it's not possible and is ex- 
tremely unlikely ever to be so. In 
order for any comptner to emulate the 
64 (or any other computer) via software, 
it's necessary to tninshtic all the (M's 
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instructions and abilities into thusu of 
lilt' c:nnipmef einukditi;; tlu: ()4. in this 
case your l'f:i(). SitUf ihf I'd 10 is a 
it;l;uivL'ly slow conipuicr, thf tnnipu- 
tiiiifnial OVC1 head would bo so iaiLjc lliai 
even if 04 programs could he iiuuk- to 
wtnk, ihcy would run at one lonth or 
kss of norma! speed. Even on a high- 
sjx'fd tompiUer like tlie Amiga, die (vl 
emulators available are so slow thai lliey 
are csseniialiy useless. 

The only way it could be dune is to 
have the (i-1 hardware (CrU. R.\M, 
gra[}hic and sound chips) on a l)oard 
that could be inserted into the computer 
(like the .Amiga's MS-DOS liridgc- 
Uoatd). liui the cost of such a huurd 
would fjrobably be as much or more 
thati a (>'I by itsc'lf. The only ])vailieid 
tnethod is that used by iliu 128, which is 
to have the 6) hardware installetl as an 
integral part of the computer. 

It has cotiie to my attention dial a 
fair number of 6 ! users are plainiitig 
on ujjgrading to the .Amiga in the belief 
lliai they will still be able to use their 
Gl software, usiug one of the cimnncr- 
cially available Amiga CM enuiiaturs. 

I checked with RUXs sister [)iiblica- 
tion, AmigaWnrld, about diis, coiiferritig 
with Guy Wright, AmigaWortiPf: eilitor- 
in-chief (who was at one time technical 
edilorhereat RUN and is still a()4 user). 
Me was at thai mo men I writing a review 
on Ctil emulators i'or Amiga World's Keb- 
niary I'JHH issue. 

After testing both the GO G'l and 
C-(54 Emulator programs, he came to 
the general conclusion that both are so 
slow that even the programs tiial will 
run (and most do not) are far too slow 
to be usable. .After watching a few deiii- 
onstratioiis, 1 came to exactly the same 
conclusion. So, better Imget about us- 
ing your {]-()4 library on the .Amiga. 

To be fair, however, there are two 
oilier products available that allow you 
to use some 64/128 hurdwure on an 
.Amiga. One is the C-View cable from 
Cil.imitcd, This cable will connecl your 
Amiga ."lOO's RtlB out[)ut to a 170'i or 
compatible com))osite inoninn, giving 
you a readable color dis|jlay. .Another 
product is .Access 64, which allows vou 
to use your 1 541/1 571/1. o8] drives as 
well as MPS-801 compatible printers 
t>n an Amiga, in Amiga mode. It is 
not an emulator, bnt it tloes have some 
software lor transferring dalafiles (like 
word |.iiocessing files) lietweeii the 
Amiga and the C-C)4. 



Ql wed a hard drive for my C-!2SD. 
_ Can J itsf an tBM-xlytf fonlrollfr and 
interface for a Seagate ST-S06 (5 megh an 



ST-119 (15 meg) or an ST-225 (20 meg), 
fmfernbly in RL!. formal'? Will I he rdite tii 
use the hard drive willi C.EOS or (U-IOS 12Sy 
I iMidd rather mtt \JHmd the $800 or $900 
0)1 tlie system Xetec offers, 

— [ASON Hl:li. 

Sl'RiN'GDAl.l-:, AR 

A That's a great idea, bin, sad lo say. 
one that's not possible (yet). To use 
any liar<i drive, software tnusl be pro- 
vided to drive it, to perhu in Tile man- 
agenietu of exireniely large numbers of 
programs or datafiles, anti yet still be 
tompadblc with the majority of non- 
copy-protected software. I'll is is what 
Xetec (and others) have dotie. So far, 
no one iias developeil a comhitialton 
interface and soflwaie for o(T-t he-shelf 
hard drives. Hul whoever does so will 
likely make a lot of money; 

As for using a hard drive wiih C'rl-'.OS. 
current GF.OS software will not wtuk 
with any hard drive for a GUM computer 
because of copy-proleciion problems. 



Ql Imve both the Stl)-I001 and H-l I 
disk drives. The SFD drive is inti-rfaeed 
to the computer with llie Sli\les tt\EE !-ia.\h 

64 interface. My priMem is finding u copy 
program that wiU (el me ropy programs from 
the 1541 to tlie lt)OI. Are there any rummer- 
rial or jndiUc domain programs lliat ih thi.\? 
— DOUtU.AS BkKDA 
PKIKRl!(>R()i:(;n. XH 

A Commodore guru Jim Bullerneld 
wrote a popular ])rogram called 
Copy/All 64 that will work Just fine. It's 
available from just about eveiy user 
group libtaty. local lUVS or national tele- 
communicalioris network .iroiiiid. It's 
also on the 1.541 Test Demo tlisk thai 
came with your 1541. 

But if you need to copy entire disks, 
using a track and sector-type copier 
won't work. In order to get the larger 
capacity of die 1001 drive, it has to use 
a different disk format, one that's un- 
forliinateiy incompatible with the 1541. 
So, whole disk backu|)s aie not possible. 
But. as meinioned, you can copy a disk 
one file at a time. 

Other problems will arise when you 
try to run some software from the SKD- 
1001. Anything that ii.ses the 1541 disk 
ROMs for faster loading or copy pro- 
tection will not work correcily r>ii the 
1001 . And some software may be incom- 
patible with your lEKK interlace and 
not run properly. ■ 

Lini Wallace, tlie author of Commodore 
Clinie and RU.\'*i teehnieal manager, is a 
prolific and expert graphics programmer. 
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Worltj's Service Perfection 

Lifetime- 
Computer® 

Lifetime Warranty for every 

sold or serviced C-64 

($60.00), C-128 ($80.00) 

exclusively from 

TOP TECH WORLD, INC.— 

Commodore/Amiga 

SALES AND SERVICE CENTER 



Computers, Prititors, Soltware, 

Hard-to-find Pans, Power Supplies 

Service Manuals 

AMEX, DISCOVER, MASTERCARD, 
VISA 

TOP TECH WORLD 

1100 S Delaware Ave,. 
Philadelphia, PA 19147 
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RUN h a pii1i]k»ij{ii^ uf 11)0 Cnnitiuttitcntloiiiri'^tcr- 
Ik»kui|^Ii. j tEni<»iiin ciT IIH'. CctiiLitiLiiikaiiiiiiiv ihr 
i*ijrlt]\ Inyci |riiblii]m ut uicujinirr rrljtrd iiiftiT- 
itMiJr>i\. Il}(; (!t>tunujitu^iitiii^ jjLihlnbr^ thter "JO com- 
puier publujtmni tn ^^ [mintrirv I^urlwn mtlliiCrn 
people rcjtl imt oi innri- n| IDG ConTmunicaiioiis' 
pubEicatLDJii ejth inta^ilh IIX* (loriirriiinirjtinTiii pub- 
licatioiu cuiitrihuKT Us the flX^ \n.^ Sfn.'Ut. oll^ia^ 
ihclair^l i^iommk imJ inlcTiutiinid] tmnpuirr nc**"^. 
IPG Commumcjiiuiii puttlKAlioni imluEir: ARGEN- 
TIXA'i Computfrutrfiti .iigrntthn; ASVW (j>mm»nMCOlioris 
\%i}ttd, 0?ntfmteTu.trTl/f fftttg Ki»ig. (Aynptitrruttrtd Malttyua, 
(^mpHtrfiifftrM Singftfiorr, CttrnpHtrrwarU St'ttthmtf Aiiti. Pi: 
Hnirnr, AVSVKW.IW (:nmpuiftjt<nfttt AmtrtilM, Ctmmu- 
fticatUmt Wi/tU. Amtmhtm It: \%atUt.AiiatTxiU'tn MtvwrvUh 
AI'STRIA* (MmpMtfrwfU ()f^tmruh\ hRAZIl/i Siativ 

Itatti; CllH.fV-i fnfttrmntii-n, Omj>nUiiim i'^nyiuil. Dl-;\- 
MARK'S C<.m}mimtwiit l),mmmk, lU: Whrlii Dtinmnrh; 
FrNL'WD's TifinvUkii,), Mihn: E-'KAXCK's U Mt^nde In- 
forvmtiqug, Dafributiquf. fn/aiK:, Tfifcom ttit^mtiltimaS-^ 
C;RtECF's Mifro atui CumfmtfT Agf, HUNCARV-i (wtm- 
/ruimiwid SZr. PC MJirifi'iittiC, INDLW /*i(n^^,hf; IS 
RAiUi t¥i>ptf i^ V^mpvir^x \\Wy\s. \^plr if (>mftusrrt 
Bt^Vtrkiy. IXAIA'i CofnfmtfT^t^ifi tlit!^. jArANS C^m- 
pufftuntldjitpan: SflAKXJ I Cimftuimin^rU .\tfxun, V\W. 
NmUKlJVNIlh' Ormputffuwiti Selhrriiruti, Pf: WrjtU 

\OR\VA'i'"4 Catnputrru-rrrU A'urjfr, PC Wmtd Xorj^^ I'LO 
VULS RfJH'niJC (If GHINA? CMfta Ccmpulftuwld. 
CJiLia (JimfruifTMtrrU MemiMy. SAL'Dt AK.\B1A'* AraAian 
Computer .Vftn; St)ini! K()Rt\A\ (hm^imjf^ld Korea, 
PC Witriii Kctrtn; SPAINi CIMiVOHUK Qtfnpuifmmid 
EspaTia, Cjimmad&rf Wbtid, jPYJ WiiTitt tilftanfi, Ctmimunrt^a- 
tifmni Wttritl. InfamviUm tivimtTuit', SVVKt)tlN"» Caiftpiitrr 

su'fdfn, .UikrttfhjidTTi, iL'/FuAfl I'd ntjrWi swiTzra- 

iJ^X|r» Cetmpiitmi-^ilii Sthimv, IfN'ilt:!) KINGDOM'S 
Cnmptt^ jVmj, i>Ei: TodtP,., fU, Vnttiy, ni lUuinen V%rW. 
lOtVS, VS\n.\i S\Al¥S' Amiff$mf((t. CUHOM Nevifn). 
CIO, Computrr CKrrni/i, CtytnfminMfiTiiS, Cumptttfrs m Siri- 
me/. Digital ,\'nt>%, frtirrtitCMmlnitrr Wffk.iifiMirTO. fOCt-S 
I*utf!u:aticin.\, mCld^^ InfaWorlti. MttfWlOih Tntay. Afuf- 
World, Co-mfmitT if Softutire Xn.:<i nMtrw Matkeiuvr[d/Lrb- 
haT-FrifdmanU Network WorUt, PC i\htiJ, Partabir Ct>mpu.ttr 
Rniai% Publiih.\PCtiTimjfr, HU\\ U'ln/fcu ji; \TNEZL'E 
LA i Conp^ltn^viljl Vf^viwhs. WKSI lltKStANVi fin 
putrm-whr, PC WfU. Run, tn/mmalurn Mimtigrmnil. PC 
UbrAr. 
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From p. !-t. 

Aliliougli it lucks CI 28 propains, ji ttnisl bi- nm in M 
niocie, Fin tlifrmoic, lockett prc)j^i;m)s <:in Ik- iiiodiflrtl hy 
iitUiiiijr liiH's (wliith will ajjjJcar when listt-il) ,inil dck-litrg 
cxisling lines. Yon tan even add dmnmy dii-nudiiiij^ lines lo 
really eon! use the peeper; jus! he sure to precede lliein vvitli 
;i locked line containing a GOTO xxx that prevents the 
thiinmy lines from heing exetutcd, 

REM LINE LOCK - TOM HAYS :REM*197 
10 CK=0;FORL=49152 TO 49371 :READD:CK=CK+D: 
POKE L,D:NEXT : REM* 4 4 

20 IF CK <> 34859 THENPRINT"ERR0R IN DATA. 
. .":END :REM*83 

30 INPUT"PILE TO CONVERT" ;P1S :REM*161 
40 INPUT"NEW FILE'S NAME";P2S :REM*233 
50 0PEN1 5,8,1 5:OPEN8,8,8,P1$+",P,R" 

:REM*250 

60 OPEN9,8,9,P2$+",P,W":SYS 491 52 :CLOSEB :C 

L0SE9:CL0SE1 5 :REM*185 

70 DATA 162,8,32,198,255,160,0,32,207,255, 

153, 224, 192, 141, 221, 192, 200 :REM*1 3 5 

80 DATA 32,207,255,153,224,192,141,222,192 

,140,220,192,162,0,32,199,25 5 :REM*0 

90 DATA 32,192,192,160,4,169,0,153,224,192 

,2 00,1 69,58,153,224,192,2 00 :REM*101 

100 DATA 153,224,192,200,153,224,192,200,1 

53,224,192,162,8,32^198,255 :REM*96 

110 DATA 169,0,141,223,192,32,207,255,201, 

0,208,3,238,22 3,192,32,207,255 :REM*86 
120 DATA 201,0,208,10,238,223,192,173,223, 

192, 201, 2, 240, 75, 160, 2, 32, 207 :REM*17 4 
130 DATA 255,153,224,192,200,32,207,255,15 

3,224,192,160,9,32,207,255,1 53:REM*178 
140 DATA 224,192,240,4,200,76,116,192,140, 

220,192,200,1 52,24,1 09,221 ,192:REM*197 
150 DATA 141,221,192,169,0,109,222,192,141 

,222,192,1 60,0,173,221 , 1 92, 1 53:REM*1 65 
160 DATA 224,192,200,173,222,192,153,224,1 

92,162,0,32,198,255,32,192,192 :REM*56 
170 DATA 76,62,192,160,0,169,0,153,224,192 

,200,153,22 4,1 92,140,220,192 :REM*2 

180 DATA 32,192,192,96,238,220,192,162,9,3 

2,201 ,255,160,0,185,22 4,192,32:REM*202 
190 DATA 210,255,200,204,220,192,208,244,1 

62,3,32,201,255,96 :REM*121 

— Toxr Hays. Gore. VA 



5. Disk Drives, i54Vt571/1581 

More Filename Examinations 

Many newcomers (and a few old-timers) to (Commodore 
com])uters prohahly don't realise how versatile the 
LOAI>"S",K siatenient reidly is. Did yott know, lor exaitiple, 
that ap|)endinf> ;i colon and ten ijiiesiion niaiks loads only 
those iilesnames made up often charactcr.s? Von type in the 
connmand as; 

LOAn"$:??????????",S 

Use eleven Cjuestion marks for a list of eleven-character 
filenames, and so on. 



Commodore 128 owners can use; 

ni RECTORYU8,'????????;'?" 

lo display those liles with ten characters. Finally, you can 
see a particular program on disk with the command: 

LOAD"3:rilename",8 

or, in C-]^8 mode: 

l)lRECTORYU8,"nienamc". 

—Tim Walsh. « LW, Staff 



1581 Filename Examination 

When you load a program fde using an asterisk wild card 
from cither a 1341 or 1571 disk drive, filename information 
to tile right of the asterisk is ignored, such as the N in the 
filename, R*X. 

However, the 3% inch 1581 disk drive interprets ihis type 
of filename differently. It does not ignore characters follow, 
ing the asterisk wild card, but insteiid loads the first file 
heginning widi an R and ending wiih an .\, The 1581 also 
works this way with CI 28 disk coimminds such as BLoad 
and DLoad. 

— TiMcniivJ. Slaif. Brattlf.roro, VT 
Splat File Rescue 

Nothing's worse than saving a finvgram or file to cl&k, only 
to discover it's been converted into a splat, or open, file 
(marked by an asterisk) and will not load or read properly. 
After saving some valinible data to a sequential file. I was 
rudely informed by the disk directory thai it had mysteriously 
evolved into a splat file. 

In desperation. 1 used the Copy command to make a copy 
of the splai file. Eureka! My data was saved and so was my 
day! I'he only word of caul ion is lo be sure there's sufficient 
space left on your disk before using this nick. Here's ttie 
Direct mode syntax for using ihe Copy command: 

C64: Ol'EN 15,8,I5,"C0:NK\VF1I.F = OLDF1LF.":CLOSF 15 
f;i28: COFV "OLDFII.F" fO "\FVVF1LF'' 

— Bii.i. RoFi'KA. Tulsa, OK 
Splat File Restoration 

Commodore computers offer a rarely used and Httle- 
known \f command that can also be used to restore the 
contents of a splat file. Here's the typical syntax: 

OPEN 8.8.8. '■():FILF.NA,MF„S,M" 

Unfortunately, not all splat files are resiorablc. If you find 
the file cannot he restored using the .V( command, or if you 
want to delete the splat file after evamining its contents, 
don't risk corrupting your disk by trying to scratch it. Instead, 
remove the offending file wiih the Validate command as 
follows: 

Basic 2.0: OPEN" ! 5,8, 1 .->."V:( :LC)SF, 15 
liasic 7.IJ: COLLF.tT 

— JON.'VrHAN i'KMOX, NORCROSS. G.'\ 

1541 Directory Hider 

Keeping yntu- disk directory hidden away frotu prying eyes 
is easy. Just type in my program, 1511 Directcuy Hider, save 
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ii to disk, then nni ii. T\vo prompts appear, asking you to 
tit(!c or ifstnic ;) diifciory, SflfCl liide, plarc the disk 
(notcliftl) ([^11:1111111^ (lie diifctoiy you want to liidf in the 
drive and k-t tlie program do its work. 

To test ore the directory, ruti tlie program affaiii. Place a 
disk coiuaiiiiiijj a hidden directory in the drive and select 
the Restore o])tion, 

REM DIRECTORY HIDER - STEVE JOHNSON 

:REM*210 

10 PRINT" (SHFT CLR J " : PRINTTABf 1 2 ) "MENU" 

:REM*1 4 

20 PRINTTAB(12>" " :REM*91 

30 PRINTTAB{ 6)" (H)IDE DIRECTORY" :REM*117 

40 PRINTTAB(6)"(R)EC0VER DIRECTORY" 

: REM* 2 32 

50 GETB$:IFBS=""THEN50 

60 IFB$="R"THENPRINT" {SHFT CLR } " ; 



70 IFB$="H"THEN90 

80 GOTO50 

90 PRINT" (SHFT CLR} 1541 



100 PRINT"THIS HIDES 

FTER" 
110 PRINT"A DIRECTORY 
BASIC, " 



:REM*5 

GOTO160 

:REM*151 

:REM*250 

:REM*210 

DIRECTORY HIDER" 

: REM* 30 

YOUR DIRECTORY ONLY A 

:REM*250 

HAS BEEN LOADED FROM 

:REM*190 



120 PaiSNT"IT WON'T WORK IF DIRECTORY IS LO 



AOfeD" :REM*69 

PRINT"USING OPEN STATEMENTS." :REM*145 
PRINT"MAKE A BACKUP FIRST." :REM*31 
PRINT" {20 COMD Ts)" :REM*12 

PRINT" INSERT DISK IN DRIVE 8" :REM*0 
PRINT" {2 CRSR DNs) PRESS [RETURN] 

:REM*254 
F0RX=1 T07 : S$=S$+CHRS ( ) : NEXTX 

190 GETAS:IFA$<>CHR$(1 3)THEN190 

200 IFB$="R"THENGOSUB270 

210 OPEN15,8,15:OPEN5,8,5,"#" 

220 PRINT)^15,"U1";5;0;18;0 
PRINTjyi5,"B-P";5;164 
PRINT;i/5 , S$ ; : PRINTi^l 5 , "U2" ; 5 ; 



130 
140 
150 
160 
170 

180 



230 
240 



250 
260 
270 



:REM*88 

:REM*216 

:REM*84 

: REM* 2 2 

:REM*215 

:REM*50 

;18;0 

:REM*235 

CLOSE5:INPUT)i^15,E,ES,T,S:CLOSE15 

:REM*102 
PRINT"STATUS - > "E ; ES ; T ; S : OPENl 5,8,15," 
I":CLQSE15:END :REM*48 

S$s"":S$=CHR$(160J+"2A":FORX=lTO4:S$=S 
$+CHR$(160) : NEXTX: RETURN :REM*1 31 

—STEVF. JOHNSON, SUTIER CRKKK. CA 



1541C Rattle 

Caution; The following trick is for experienced disk drive 
users, not novices. 1( may void your disk drive's warranty 
and can cause damage if jjerf'onned incorrectly. If you're 
unsure hem- to perform this inodifLtation, lake vour IS-lIC 
to an atitluiri^^ed Comniotlore service center. 

If you own a l.=i!lC (the newest version) disk drive with 
the levcrtype door catch, and ii makes a rattliiijr iit)ise as 
though it's ahout to format a disk, you can cure it in short 
Older, The jntnjjer wire to the ttack-1 sensor w-us left uncut, 
so the sensor is turned off, htit the 1.54 1's DOS catnioi detect 



its status. Cut jumper J-;^, seal the end of ihe wire and the 
prohlem disapf>ears. 

— Nf.W MKXKX) USER'S (.iHOUf NHU'SLKTlfR 

Disk Reviving Made Simple 

Did you ever receive a shghtly cnmi))led computer disk 
in the mail and discover it would not load on yotn- computer 
syslemr Later, after returning it to (he manuiacturcr, you're 
iidormed that it wtnked perfectly on tlieir etjuipment. Ihe 
prohlem may not he with your disk drive. Inn qtiite ))ossil)ly 
(iiused hy the hole in the damaged disk sli|)ptng and sliding 
ill the drive. 

(Commercial software manufacturers use powerful disk 
drives tliat could double as fartii cquif)iiH'iU, so the disk may 
not slip on its hub in their drives, while it dues in vours. 

Here's a little trick to revive cruni]iled disks. Lay the disk 
(in its jacket, of course) on a Urm, Ihit sin face and gently 
riih the four edges of the tlisk with the smooth side of a pen 
or pencil. More often than not, you'll have the disk tiniiiiig 
freely and in readable condition. 

—Matt Hauc;. Sieinalkr. Nf. 
Disk Drive Identifier 

Conniiotiore fil piogratmners who write disk bat kup or 
directory programs, oi any others thai need to tkiect which 
type of drivc(s) is present, will appreciate tny program. Disk 
Drive Identifier. 

.'\s a standalone ptogram, this disk utility detects all active 
drives ctmnecied to vom' computer and prints the number 
of drives, their device minibers and motiel numbers. More- 
over, this program works with most models of the Cionimo- 
dore 1.")1L 1.771, l.'iHI and even some i bird-parly ."» 1^ •inch 
disk drives. I'rograimners ate likely to lind many other uses 
fur this routine in their own programs. 



REM C-64 DISK DRIVE INDENTIFIER 

HAND 
10 DR = 0:FORX= 8 TGI 1 : POKE 144,0 
20 OPENl ,X,1 5 

30 POKE 144,0:POKE 780,X:SYS 65457 
40 POKE 780,111 :SYS 65427:SYS 6544 
50 Z= ST:SYS 65454:IF S<0 THEN90 
60 CLOSEl :0PEN1 ,X,15,"UI" 
70 INPUTfiil ,EN$,EM$,ET$,ES$ 
80 U(DR)=X:U$(DR)=RIGHT$(EM$,4) :DR 

90 CLOSEl : NEXT: DR=DR-1 



110 



PRINT"DRIVES ONLINE:" 

IF DR<0 THENPRINT"NONE":END 

120 FOR X=0 TO DR: PRINT" {3 SPACES) 
U(Xl 

130 NEXT 



- CHRIS 
:REM*208 
:REM*38 
:REM*104 
:REM*1 40 
8:REM*80 
:REM*109 
:REM*218 
:REM*192 
=DR+1 
:REM*220 
:REM*202 
:REM*111 

:REM*4 
";U$(X), 
:REM*174 

:REM*S 



— Chri.'s Hand, c:m'Rt:iivii.i.K, NY 
De-Selecting C-128 Auto-Boot 

While the CM28's antoboot file option is a handy feamre. 
havitig it installed on your often-used disks can also lead to 
aggravation. Resetting the computer or simply turning it on 
makes tlie system try to load and run an antoboot file on a 
disk in the drive, furthermore, some programs antoboot 
when y<nt exit them. An example of the latter occurs if you've < 
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instil! ltd ati aiiU)-boot on RUN Script 128. Kxiting the pro- 
glint) with the disk in tht- drive causes Rl^S' Script to it-hoot. 
UtTt-'s :i simple siiUition tt» avoid hooiiiig an tnnvatrtfcl 
atiluliiiot filf: Don't rfsci ihe ti))n])uler rir tuiii ii oji witlt 
the aiitiilmol (lisl; in tlic di ivc. Bnt if ynii do, press the i ml- 
stop/rest! ne key conibinatiiin the instairt the Commodort' 
message screen appears, Yoii shoiiki get a clear screen and 
a Slashing citrsor. Then, in Direct tnocie, enter DCLOSE. 
Failing li> do so gives ytni a "FILE OrKN" message the first 
time you press F3 for a clhcciary. 

— RoHKRT V. Taylor, l.ii iik Rock, AR 
DiRECTORV, Please 

When your C-til has a iiusic program in mcrnoiy and you 
neeti to examine the disk directory witlnitit disturbing the 
program, enter the following command in Direct mode: 

I'OKK ■(■!, Pia';K('1()) + 1 1.0A1)"S",K LIST 

To remove the direetcny frinn rnemoiy and retrieve yoin 
Basic ])rograni, enter: 

POKE Hi, PEEK(44)- Ul'OKE 44.8 

Write these commands down and keep tiu'm close to ytnir 
ctntipuier for ijuick relerence. 

— Hklen Roth, Los Angeixs. ca 
File Repositioner 

Long-time Coinmodine users agree that it makes good 
programming sense to plitce your most rrequently used files 
near the heginning of yotii disk dircclory. It niii only makes 
loatling easier, but also significandy faster on disks contain- 
ing many files. 

Unfortunately, te|K)sitit)ning files on a disk directory is 
not an easy process vvithout a disk tnilily. If a file named 
Ants needs to occupy the Inst file positi<m in the directory, 
but that slot is already occupied hy a file called Bees, you're 
in for a little work. 1 wiule File Repositioner to make the 
process easier. The program runs in either (J-1 or 128 inoile 
and is a handy utility thai can be used with all ot your disks. 

.■\fier rimning the program, yoti're pnmipied to insert the 
disk containing the files to be repositioneti. Make sure a 
write-[notert tab is not on diat disk. Next, you're promjned 
to enter the name of the file that y(m wish lo switch positions 
with the second file. Thal*S all there is lo it, because the 
program takes care of all the rest! 

REM DIRECTORY RE- ARRANGER - DEAN YAMADA 
JR. : REM* 4 8 

^0 PRINTCHRSd 47) :X=15:0PENX,8,X :REM*9 
20 PRINT'TNSERT DISK CONTAINING FILES TO S 
WAP" :REM*32 

30 PRINT"PRESS 'Q' TO QUIT" :REM*158 
40 PRINT"ENTER NAME OF FIRST FILE" : INPUTNS 

: REM* 2 5 1 
50 IF N$="Q" THEN END :REM*210 

60 PR1NT)^X,"C0:MOVE=0:";N$ :REM*212 
70 PRINT|?X,"S0:";N$ ;REM*164 

60 PRINT#X,"R0;" ;N$"=0:MOVE":PRINT:REM*1 1 5 
90 PRINT"ENTER NAME OF 2ND FILE": INPUT AS 

:REM*217 
100 PRINT#X,"C0:MOVE=0:";AS :REM*25 
110 PRINTil/X,"S0:";A$ :REM*94 

1 20 PRINT#X, "R0 : " ; A$" = ;MOVE" :CLOSEX 



: REM* 19 
130 PRINT"ALL DONE!" :REM*71 

— Dean M. Yamaim, 'Ikmi'Li;. TX 

6. General Hints and Tips 

Helpful Printer Hints 

If you want to explore your ]n'inicr's capabilities witliout 
the hindrance of your printer itneriaee's limitatioirs. then 
you should try printing with your ituerfaceset in I ranspaient 
mode. While tliis mode makes your printer a Hiile less soft- 
ware-friendly, it allows a greater choice of densities when 
printiiTg grapliics and also prevents unwanted (Commodore 
codes from interfering with your printer's oiit|nit, 

Transparein mode is acc(nn[)lished (m most [iriiUer inter- 
faces by setting a DIP switch or two orhy using ibecdinmand; 

OPEN 4.4.4:!'R1N I #.S;CLOSE 4 

or 

OPEN 4,4,5: PKIX f #-1:(;L0SE -1 

!f you're lisinga software package such asf'.KOS, you won't 
be aijle to use a Coininotlore-compatiblc jninter driver; in- 
stead you'll have to activate your printer's driver or one ihat 
closely resembles il. 

Another handy printer trick applies to atiyone who ex- 
periences ]]ii)blems printing ([notation marks in word pro- 
cessor docunii'ins. If you ojjen a fiuotalion mark, then 
experienie a loss of leftniaigin sjiace or other ofld occur- 
retices when |)rinling, your printei may be reieiving an extra 
code (»• two, triggeretl Ijy the presence of the (jinnation nnirk. 

Yon can ilx tit is pifiblem by getting out your printer manual 
and referencing tire sectioii im redefining cliai alters. Rede- 
fine your printer's @ or £ sign into a set of qiu>tat!on marks. 
I'hen, instead of using C|uolalion marks in y<nn' document, 
substitute the @ or£ sign. When yon print the docmnent, the 
printer will print the @ oi £ sign as a ()notati<m mark, 

— KEITH Sitis. New York. NY 
Magnifying the Type 

People, like myself, who are enjoying computing in their 
golden years may suffer from imperfect eyesight. 1 discovered 
a S4 magnifying bar at a drug store and have been happily 
using it ever since for typing in program listings bom RUX. 
1 [jlace the bar over each line oi the listing and il dinibles 
t!ie size ol the print, making ii much easier to read. 

— Clyue R, Lovela(;e. Kii.acea, HI 

Fixing Temperamental C-128s 

Xearlv every C-128 owner eventually encounters what I 
call the "Soine-Key.s-Ain't-Workin' Syndrome." This aiitnenl, 
which (uily seems lo affect ohler, flat 128s, can strike at any 
time. When it tloes, up to half the keys on the keyboard 
refuse lo woik, regardless of whether it's In til or 128 mode, 
It's usually canseil by a loose keyboai d ground wire. 

If the computer's 9l)-day warianty has expired, don't pack 
it up for a ride to your nearest authorized Commodore service 
center. Instead, try this nioneysaving, five-minuie trick that a 
C.ommodoie lecbuician showed me several years ago; 

First, unplug all the cables from the cotnpuier, Next, flip 



92 K I) N ■ Sl'hCtAl.lSSUK lilMil 



MAGIC 



ii ii|>si<U- (iouii .Hul reinovr \hv Phillips scrt-ws liokiing ilic 
t!)|i and l)iMt(iiii r;iscs ic>]^fi)ifc. CiHcttilly sf]i:ii;ii<.' ilii' tascv 
and iiii[)luj^ the LKl) power li|L;lir tonniTlcir. 

Al tliis poinl. you'll iiotiru a shorl, tliick, braided gvoinid 
vi'iif holding ilif keyhoind In the giciMi niotht'ihoaid. Thai, 
Icllow (:i28ers. is die cidpiit. Loosen the grouiKi \siie at the 
1111 II hei board uitli a Phillips screwdriver and ic-tighten it to 
give ihf keyhoaid a bellei i^rimnd. 

Nov*' le-assenilile die ioni])uier by llrsl phigf>int; the 
power li^ht eonnei tor bai k in, then press tlie eases logelhei, 
lighten the screws and ])hi^ M tlie i, idles haik into the 
toiiipiitcf, 

Vonr entire keyboard should work line now. I've |)eii()rnied 
this (juiek repair on hali-ad07.cn or more C12Ss, ;md only 
one ol them failed to lespoiid. Soiiietiincs a trip to the service 
center for tnni e extensive lepairs is in order, hut you should 
always try ii(;;hic-ning the jifound wire first. 

— TIM \V.\LSfl, HUA'SiAVT 

Wnv AN Amiga Monitor? 

Did you know that the original Amiga video monitor 
111 :i nti fact u red for several years by tlotnmodoie exclusively 
tor the Atniga lOOO also makes a top-notch (M28 RGB/ 
conipositc inonit<n? It sports a color RCIB 8()-colnmii video 
[)oit plus RVA plugconi])a1ihle chtoina, liinia and sound 
[lorls for y<iin- (M^H's •ID-Column mode. 

While this moniior is no longer inamihictmeii, my advice 
is lo get otie the way 1 did — by keeping an eye on the 
c(nn[)utei classifieds for a nscd .Amiga and color monitor, 
Soiiie.\iiiiga owners might even be willing 10 sell the monitor 
sejjaratcly from the com|)uter. If s(j, you'd end up with ft 
beaiililid. reliable RGB color monitor r»»r your G-i28 at a 
had ion <if the cost of a com|)anible new nionilof. 

—NINA Oi„se)N, S,-\N Antonk). in 

Mailing Label or Disk Label 

Having trouble fitting ,1 do/en or move filenames on disk 
labels? Can't seem to get the little rascals 10 stick to the disk? 
Ifso, iiiakc;i fHii< k trip to your local stationery or dejjaitinent 
store and gel a small box ol l„")x;Mmh mailing labels. N't)t 
only do they adhere more securely lo disks, but tliey also 
otfer ajippret iahly tnore s])ac<' for lllenames than (■onv<'n- 
tioiial disk labels, 

— PiilLU' KlWKY. C()I.OR.ADO Sl'RlNG.S, CO 

More on Mailing Labels 

.Mailing labels aie great time-savers Cor anvone who uses 
atilomatic lellei maihiiics (.VIMs). Piiiii a batch of niailing 
labels containing your name, account numbei ami other 
.'VIM required iiiforinatioii. Ask for a few extra ATM enve- 
lojjes at your bank and slick the labels li> the envelopes. The 
resuh is that voti waste no more time lllling out envelopes 
at llie .ATM: 

Another mailing label trick applies to anytnie who prints 
iliein. Beware: .Somier or later a label might peel off the roll 
and lodge beneaihyoin pi inter's platen (roller). Don't panic — 
yon won't need 10 tlisasseinble the piintei. Jusi gel a bottle ol 
rubber cement s<ilvent and dribble a leasptuni or so down 
beneath the ])iateii, and the label should loosen and roll out. 
Have a pair oliweezers handy if the jammed label is stubborn. 
Clean the platen thoroughly with more solvent to remove anv 
residue before eotrtinuiiig your printing chores. 

— LONNin Brown, Lakeland, FL ■ 



NEW 
V6.0 



ULTRABYTE 

DISK 

NIBBLER 



NIBBLE COPIER WITH 305 PARAMETERS 
FOR COMMODORE 64 ANO 128 

Copies mosi protecled disks In 2 tnlnules wllhout 

need for parameters including rapld-lot:ked 
I 305 parameters to tiiake unprotecled copies of recent 

programs Including VK^AX protection. 100 more than 

V5.0. Send stamped envelope for list 
I Copies up to 40 tracks using 1 or 2 1541 or 1571 

drives. Copies both sides on 1571 
I Copies Itself (lor this reason, no refunds given) 



V6.0 $29.95 PLUS M.OO SHIPPING 



1, Disk Surgeon V2,0" new disk utility $10.00 

2, ijltramail -• mail list and labels ..,,.) both for 

Handy-Capper - race handicapper | S10.00 

3, McMurphy's Mansion- text adventure. .. i both for 
Sotuware -- solutions to 10 adventures . . . . j S10.00 

4, 150 older parameters and file copier S10.00 

Add S4.00 shipping (covers up to 5 items) 

Mastercard, Visa, Check or M,0., Calif, add 6.5% ($1,85) sales tax. 
Foreign ordersfCOD add S2.00, Payment must be in Lf,5. funds 

UPDATES • V6.0 ts same as V5.0 but with 100 new parameters, 
flBlurn original Uilrabyte parameter disk witti S15.00 plus S4,00 
shipping. Foreign add $2.00. No exceptions. 

To order, write or call 24 hr. order line. For Into, writo, 

ULTRABYTE (818) 796-0576 
P.O, Box 789 LaCanada, CA 91011 USA 



circled 15 on Reader ServlcB card. 



VAMIGA 

AMIGA 500 COMPUTER J 545.95 

AMIGA 2000 COMPUTER S1445.95 

AMIGA 501 512K RAM S 149.95 

AMIGA 2052 2MEG RAM S 399.95 

AMIGA 20B8D BRIDGECARD $ 499.95 

AMIGA 1010 EXTERNAL DRIVE S 199.00 

AMIGA 2090 HARD DRIVE CONTROLLER S 319 00 



c= 



t commodore 



64-C COMPUTER 
128D COMPUTER. 
1764 256K RAM. 
1750 S12K RAM. 
1571 DRIVE . . . 
1581 DRIVE . . . 
1541-11 DRIVE . 
1S70 MODEM . . 
16B0 MODEM . , 
SUPRA 2400 MODEM. 
C-NET 64 BBS 



.5159. 
.$449, 

.sue, 

,5149, 
.5221 
,S179 
,S175 
.$ 79 
.$ 99 
.$149 
.$ 84 



95 LT KERNAL 20M 64. 

95 LT KERNAL 40M 64. 

,95 LT KERNAL 20M 12B 

,95 LT KERNAL 40M 128 

95 AVATEX 1200E MODEM 

95 AVATEX 12O0HC MODEM 

95 AVATEX 24 CX) MODEM 

95 OMNITRONiX INTER . . 

00 SKYLES QUICKSILVER . 

95 SFD 1001 

95 C-hJET 128 BBS 



S 799.95 
SI 295 95 

$ 849.95 

S1345.95 

S 79.95 

99 95 

17995 

45.95 

1 19.95 

169.95 

89.95 



SOFTECH COMPUTER SYSTEMS 

, Post Office Box 23397 

I Lexington. KY 40523 
(606) 268-2283 
(800)/992-SCSi (Orders) 
No surcharge for MCA/ISA 

Sorry, no walinn cxretomcrs. AO reiurns must have an RtMf. Merchandse found 
delecbve wi« be ruparod or reptaced. Wo do not oftar rotunds tor deteOwo producis 
or lot producta mat do not peitoim satittaclorily. Press aro subject lo change witnout 
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Business Machimxi, 
if3,l Inc 



COMPUTER REPAIR • FAST TURNAROUND 

C-64-$45.00 1541-$69.00 

$CALL Amiga, PC10, C-128, 1571, MSD 

Monitors, Printers, etc. 

Includes all parts and latior 

Commodore Authorized Service Center 

T.C. SERVICE 

PO Box 1224, Hwy. 36W, Ironman Road, Hartselle, AL 35640 
(205) 773-1322 



jUi^ SAVE YOUR FAMILY! 

j&ii I ^1^1 III III II [ software with features to fit every budget 
)fWV and requirement: UNEAGES/Starler, LINEAGES/Stan- 
-*- dard, LINEAGES/Advanced, and our most comprehen- 
sive FAMILY ROOTS. Prices $29 & up. Data is compatible between 
systems and you may upgrade from one to another. Call for FREE 
information. Satisfaction guaranteed. 

QUINSEPT, INC. 

PO Box 216, Lexington, MA 02173 

1 -800-637-ROOT 61 7-641-2930 




Surgically Precisel 

Illustrated nuinual 

True digital alignment disk 

No special scopes or tools needed 

• Used by many repair shops and ovsTiers 

Speciry Commodore Disk Drive, 1541, 1571, etc 

x^.dinal Soflware, :48.« Build America Dr., Wootiliridgc, VA 22191, 

S^I'SSVSOO 762-5645 



t 
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1 , PRINTER UTILITY PACKAGE: Add any or all ot Ihese printed programs 
to your own programs, use Ihe plans to build a cable, and interface directly 
10 any parallel printer without any extra electronics! SI 2.50 {add S7.50 for 
all programs on disk). 

Z. BUILD YOUR OWN UNIVERSAL RS-232 IfJTERFACE; Includes plans, 
schematics, several versions, assemtily options, parts sources! S7.50 

3. BUILD YOUR OWN STEPPER MOTOR CONTROLLER: $5.00 

4. MORE UTILITIES; Send a #10 SASE for product inlormatlon sheats on 
new items tncludirvg Interrupl Utilllles, Universal Floppy Disk Controller, 

Check or money order lo: SOLUTIONS. PO Box 19774, Seattle. WA 9B1 10 



ATTENTION HORSERACING FANS! 



COMPUTER-AIDED HAMDICAPPING mahes Iho diffsrunce with simpl9-ti>us«, aasy-lo- 
unOerstand 'acing programs from COM-CAP! Written for ail levels item beginnor (o 
expert! 

NO GAMES-NO "SYSTEMS" 

Speed Fla1lnB3.Pac9-Trainor/jocl(Ov awabasetole board aids and mora! 
C-<JAIMB, IBM and an Sharp pocltel compulets 

"The t0^ding source is. . COM-CAP" 
—James Ouinn, High-Tech Handicapping 
Write (or your FREE copy of UnderrDniling Computer Handicapping AND a trM 
etilalog of programs by George Kaywood! 

COM-CAP, PO Box 34575, Omaha, NE 66134-0575 



Yds Wp Accept: 



lltY KE1^>1»: YOU BUY! 

|jj^; ^Q ^^. 



Best selling games, utilities, educational, 
and classics plus new releases! 



100's of titles 
Low prices 
Same day 
shipping 
Free brochure 



^ 



RENT'A-DISC 

Frederick BIdg. #223 

Huntington, WV 25701 

(304) 529-3232 



NOW AVAILABLE FOR THE AMIGA! 



The MliiroFlyie JOYSTICK, ttie only lully proponkxisi eontinuoustiy variable )cvst>ck 

control for Flight Simulator II 

'■ . it transforma an exoHlanl program into a truly realistic llioht simulation system" B.A.C.E. 

MICROCUBE PRODUCTS 
Ci^mmodorv 64/1 ZS 

• MicroFlyts ATC Joystick i59.e6 

■ Tost/CaHbration DlsK: A dloonostk: tool lor your joyiUCK t ^.95 

Amiga 

■ Microt=lylo Joystick— Plugs into the mouse port 4 woriis wiith rrkW soltwars . . . .J1 19.89 

• Analog Joystck ^ 59 95 

Inciude SJ 00 snipping of loystKk orders. FSII is a traismarii of subLDGIC Corp. 



tWICROCUBE CORP.. PO Box 488. LeEsbura, VA 22075 (703) 777-7157 
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ELECTRONICS AC/DC CIRCUIT 
ANALYSIS PROGRAM 329 95 Disk 
Computer Heroes /^IHtk 

■ PO Box 79A ^'^ 

Farmlnglon, GT 06034 C-64, C-12a, IBM PC 
Orders only 1-800-622-4070 

Program computes general numeric solution to electronic circuit o( up to 
40 nodes and 63 branches. Brancfies may contain resistors, capacitors, 
inductors, current sourcas, voltage sources or 4 types of controlled sources. 
Computer displays node voltages, branch voltages, currents, powers and 
power factors. Step function of branch parameters or freciuency with graphic 
display o( results. Menu controlled and user friendly 



SURVEYOR 1 

Trlangulation: Horljontat 4 Vertical Curves. Radial Stationing and Printout tor both curves. 

Mi5c , \*iurT>es in Cu Ft.. Cu Vtls & Gals 

SURVEYOR ir 

Traverse Closure: By Compass Rule 4 Coordinate Method. Average End Area 4 Smgle 
End Area Computations. DisI, Bst, Coord, wrbeatlngs: Angle B»l, asaringa; Etc. 

R&R HISSA 9500 S.W. 51 TERR, f^fllAMI, FL 33165 

ClEa or C84 529.96 ea.i PC $34.35 ea.; Postpaid; Fla. Res. Add 6^ Tax 

Color/Graphics Card required for PC; "Printer requirod for Surveyor II 



WIN LOTTO MILLIONS!!! 

NEW RELEASE! LOTTO PICKER" PLUS v2.1 

Lono Picker" Plus stores winning Lotto W, Keno 
rWll. & Pick 3^4 numbers & uses muilipte slatistbcal 
analysis (hot. cotd, & ur^brased numbers) to wheel 
what might t?e your million datlar tickets tjuaranleed 
To work for all Loito-slyie games worldwide. Easy-to- 
use, fully documenlod. and nol copy protected. In- 
cludes a database editor, programmable games, and 
much mtch morel Never obsolete— Pays for itsolll 
S34.95 (Plus S5 55 SSH) Of^DERS: 1 -800-634- 54B3 
eil. 193. GE RIDGE SERVICES. 170 Broadway. Suite 
201 -nS Now YoiK. NY 1003fl. NV residents add sal as 
tax. For IBM-PC 4 compatibles, PS/2, Cetf12B 4 
Apple 11 Inquirioa: 716.317- 1961. IBM-Applo 3.5 incti— add SID.OO, 





MAKE FACES AT 
YOUR C-64 

SCAN-ON-PRINTER! 

"UN-VIDEO" CHOICE 

SYSTEM S79.9S 7-SlZE PROG S39.95 

BOTH JUST S99.951 DOCS + SAMPLES St 

SCAN DEMO DISK S5 

COO'3 (B09>«a<M220 [2-9PM EST] 

KALTEK/GREAT HEAD 

ADJUNTAS PR 00601 



FINALLYl A Music Program thai Is Easy to Use and Powerful 
The MAESTROl for the C-64 and C-128 {64 mode) 

Easiest and fastest music entry and playback. Powerful— can accommodate 
almost all popular and classical music. Add feeling by conducting music 
using keyboard and up to eleven designated changes each, in tempo and 
volume. Orchestrate up to four different sounds for each voice. Cut and 
Paste. Transpose. Play pan of a song. Play program of up to 20 songs in 
any order. Exeeilenl for learning individual vocal pans. Includes 24 sample 
scngs, and Sound Designer program. Joystick needed for music entry only. 
SV. In. diskelle and manual— $24.95 -i- $3 shipping CA residents add tax. 
Zwotzig Associates, Dopt, S-R, 5932 Bruns Ct., Oakland, CA 94811 
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Class Ads 

RIW Ctbsi A<U were sptcificilly fl<'vigncd lo jiroviHc die cITccliiTiit-^s 
nrdUplay ;a(1vt.Tti-iin^ ;i[ the c:ui[ of cLL^sitlctl aikt-f lining. This u|i|H>t 
tmiiiy gives the C;Lns* Ad buyer die lowest tuai ^ivaibhle in rcudi tH'iW 
hif^hly qualtfied tircul^iion of ejttliisivc Commfulorc l\4 8c 12Howru:i!i. 

Need help in fl<'signitig vourCLis^ A<l,questkins ;ih<»iii rale^, froquc^iu v 
ursize? Call HEATHER PAQUETTIu at l-SOO^l^OS or 603*924-9471. 
We acccpi checki, mmiey orderi, MjMcr Card or VISA. 



QUALITY SOFTWARE 

NEW Products: Outlining; Accounting; More 
FREE Catalog of these and otiier products 

DISCOUNT Prices by ordering from pubiisfier 
Call 415/563-0660 or Write: 



1924 Divisadero, San Francisco, CA 94115 



FREE CATALDG 

Discount software for your home computer. 

Apple, Atari, Commodore, IBM. . . 

WM| Data Systems-R 

4 Butterfly Drive 

Hauppauge, NY 1 1 788 

1-800-962-1988 Ext. 122 (516) 543-5252 



Commodore Amiga Service Center 

C-64 Repair c-i28 . , . S64.95 

$39 95 1541 25.00 (alignment) 

includes parts/labor 1^^] ^5.00 (alignment) 

SX-64 .... 59.95 

CALL tor Commodore Chips & Power Supplies 

at low prices. 

A&l^ Computer Repair 

20 Guernsey Drive, New Windsor, New York 12550 

(914)562-7271 



BASIC GAME DESIGN Flashy Tricks ol the Trade 



Clean, last BASIC tor Scroljs. Animation, 3D Color Grsiijhics. Sourtd and Music. Greal NEW 

[cj GAMES fully explained. Any disk $15 ppd. Any 2 £25 ppd. 

1)10 Gimes of Logic- • Ijomjs ACTION Game. OIL VIWR, » DEMOS. 

a) 10 G»mts ot Action- . bonus IDGIC Ganw, DUFFY'S DFWWERS, * DEMOS 

3) Mu»lc-Ea$y 3-Pan HARMONY, witti Tromolo, PFtase. venous Vtoices. otc. OVEBTURE- 
play a ono note mekxiy and gsi Harmony. Savofload tunes to disli and EASILY add Rich 
MUSIC lo your Own Programsl OMNIVOX-Roallime Hannony al tlia louch ot a hovl AN- 
DROID SYMPATHY ORCHESTRA-C-64 Music in Harmony. 

4) Advanced- WIZAD'S TOWER 1-4 Thieves ol Magic (ace Waaa the Mad, Humor-Treach. 
ory. EMPIRE STAR a batllo In 3D CubeSpncs. 1-2 players. Logic MY DEAR DR WWSON- 
at tasi trio les! o! Holmaa' Adventures can tie low, Text-Humoc. Includes AWTDRUN UNL- 
IST, PIX, SIOLAB and More! NEWI Hon ROXTARfMLJ-Tumi C-M inlo HAXI ROCK 
CHORD ORGAN, S20 ppd. 

HKDO Graphics, Rte. 1 Boii 199 A. Stanley. Wl 54766 



COmmocioPe Service 



1541 525.00 

C-12B "Plus Parts 
1571 



AUTHORIZED COMMODORE 
SERVICE CENTER 



WE DO WARRANTY REPAIRS 
CALL FOR DETAILS 



We also service Amiga & other Commodore equipment, Leading 
Edge, Star Micronics, IBM PC & XT, and Blue Ctiip, Call for rates, 

(413] 442-S771 



90-DAY 
WARRANTY 

ON ALL REPAIRS 



TYCOM, INC. 

603 East SI. 
Piltsflald, MA 012Q1 



HCfWs Checksum 

TYPE IN RUN'a CHECKSUM, which serves for both ihc C-64 
and for [he C-12H in cilher 40- or 80>Coliimn mode, and snvc 
it w disk licrnrt ninniivg, Wlit-n tVpitiK in ;i jirogiam frtim 
RUN, first loud and niti liUX'i Checksum, [lie scrt-cu will 
display a SVS niimljer Uial deactivates mid rcactivalt.s the 
Checkisum, Alwajji disable liVM'ii Ctieeksmn before altenipiing 
to run anotiicr program. Note: You can abbreviate Basic 
kej-ftords; spaces affecl the checksum only when within quotes; 
and the order cif characters affects the checksum. 

With this new version, when ycni press return after typing in 
a program line, a one-, twii-, or tiirec-digit number from to 
255 appears in the home position- If this ntiinlier niatcties the 
checksum value in (he prugiam listing, the line is correct- If 
the number that appears iltvsn'l match the cbecksum value, 
ttjmpare ilie line irith ibe magazine listing to Ihid your error. 
Then move the cursor back up to the line and make your 
corrections. Now, after you press return, the correct checksum 
value should a]>pe;u-. Continue entering the listing until all the 
lines have been correctly typed. Then deactivate RUN's 
Checksum, asiiig the SYS number. Save the finished program, 

.'Ml the graphics and control characters in die listings in RUN 
have been iianslated into understandiible key combinaticms. 
'Ibey are ilie instructions you see inside die curly braces. For 
example, {SHIFf L} means you bold down the shift key while 
you press the L key. You do not type in die curly braces. What 
appears on the screen will look quite difTerenl from what is 
designated inside the brace.i. Here arc some more examples; 

{2a spaces} —press the .space bar 32 times 

{SHIFl" CLU}— bold down the shift key and press die clr- 
home key 

{2 CRSR DNs}— pres.^ the cursor-down key twice 

{CTRL !}~hold down the control key and press the 1 key 

{COMD r}— hold down die Commodore logo key and press 
the T key 

{FUNCT I } -press the Fl key 

{5 li.s}— press the British pound key (not #) five times HI 

Liating 1. RUN*% Check sum pnigram. This prograrn is 
BVBilsble on RUKPm BBS for ussrs to downlosd. 

10 REM RUN'S CHECKSUM 6 4/128 - QOB KOOftDEK 

20 MO=128:SA=332B;IF PEEK! 4g9601TKEH HO=64:SA=4 

9152 
30 FOR I=f)T0169:REflDB:CK=CK-fB:POKE SA+I,B:NEXT 
40 IFCKO 20651 THEN PR TIJT" DATA ERROR! ":END 
50 POKESA+110,2 40:POKESfl+in , 38: POKESA+1 4(i , 234 
60 PRINTCHR$(147)STR$(H0r' RUN CHECKSUM" : PRINT 
70 PRINT"TO TOGGLE ON OR OFF, S5fS"SA:IF M0-12B 

THEN 100 
80 POKESAtl3,l24:POKESA+15,l65:P0KESfl+25,124:PO 

KESA+26,165 
90 POKESA->39,20:POKESA-.41 ,21 :P0KESA + 1 23,205!POK 

ESA+124,IB9 
100 POKESA+4,INT(SA/2S6):SYS SA:MBW 
110 DATA 120,162,24,160,13,173,4,3,201,24,208,4 

,162,13,160,67,142,1,3,140 
120 DATA 5, 3, 88,96,32, 13, 67, 152, 72, 169,0, I'll ,0, 

255,133,176,133,180,166,22 
130 DATA 164,23,134,167,132,168,170,189,0,2,240 

,56,201 ,48,144,7,201,58,176 
140 DATA 3,232,208,240,189,0,2,240,42,201,32,20 

8,4,164,180,240,31 ,201 ,34 
150 DATA 208,6,165,180,73,1,133,180,230,176,164 

,176,165,167,24,125,0.2,133 
160 DATA 167, '65, 168, 105, 0,133, 168, 136, 208, 239, 

232,208,209,169,42,32,210 
170 DATA 255,165,167,69,168,170,169,0,32,50,142 

,169,32,32,210,255,32,210 
180 DATA 255,169,13,32,210,255,104,168,96,104,1 

70,24,32,240,255,104,163 
190 DATA 96,56,32,240,255,138.72,152,72,24,162, 

0,160,0,32,240,255,169 
200 DATA 42,208,198 _ 



SPECIAL ISSUE IStaS ■ K U N 95 



Authors 
Wanted! 



List of Advertisers 

(603) 924-7138 or (800} 441-4403 

Naiiosai. Ai)V[-;Riisi\(i SAi.r.s Mana(;kr: Ken Buvkrman 

NoKtlltAsr SA11.S BA«tlARA HoY 

MllHVhSI(Sul IHKASI SVUS NaNCV POrrTER-THOMPSON 

U'KsihKN S I Ait> Sai.ks Masackh; Giokcio Salltti, (415) 328-3470 



RUN IS ALWAYS on tht- lookout for 
programs and articles thai coiiiain 
imeresiing and useful ideas. For I he 
most pan, ttiose ideas come from 
ytju, our readers. We rely on you to 
keep our files well stocked with ar^ 
titles and programs from which to 
choose. 

What kinds of articles do we need? 
We are looking for programs — of all 
kinds, shapes, si/,es and colors. We 
need useful applications for ilic 
home, small Imsiness and sthool. We 
need utilities, programmers aids, 
creativity software and games. 

We are sure many of you have de- 
veloped tinitjuc programs that you 
use every day. You may not rcalisie 
that a whole community of users is 
waiting to read about and share yotir 
creations. 

If you are not a progranmicr, don't 
despair. We still need you. The intro- 
duction of new Commodore prod- 
ucts— GF.OS, the 1351 moiise, the 
17xx series <if RAM expanders and 
die 1 581 drive— has opened up a vast 
area of topics for you to write about. 
What commercial software packages 
do you use that support iliese de- 
vices? What are their strengths and 
weaknesses? Users atid potential 
users need to know. 

These arc just suggestions; we're 
sure you can (liink of more. Consider 
this an invitation to share your knowl- 
edge and computing experiences 
with tens of thousands of other Cotn- 
modorc iLsers. And you will be re- 
warded for your efforts. 

To help you submit those articles 
and programs for publication, we 
provide the RUN atiihor's guide- 
lines. These information sheets give 
you an idea of what kinds of material 
we are looking for and take you step 
by step through the process of pre- 
paring your articles for submission. 

For a free copy, send a self-ad- 
dressed, stamped, business-size en- 
velope to: 

Author Guidelities 
RUN Magazine 
80 Elm Street 
Peterborough, NH 03458 



Reader Service '^^ 

4V2 \\.\ niMiMi -13 

■Id! AliMiliiti' KiiU'rMiiitiii'til CIIl 

10.') AliMiliHf Kim-riiiiiitm^iu , 5 

■ Iti.iriiliiKl Kduc^iikiriit] Service] II 

I'.'li Hr.nui ISeixcs. Inr «,') 

41H Crcuhc Micro J)fstgri . ..,.,, 77 

4fl2 »Jnil;iI Sululicm-i CIV 

411 l']nUrir;iinmenl Orvl.int- 13 

40*1 H&l' CiHlipultrs 37 

* I<;K Future Soft 16-18 

41!^ Jintin R;iiihi>iiii ..,..,.,.. 67 

lOT jrikiT Scilnv.iTi- liil'l C:il 

HO I..1IIK- H^ijlnirr (>jiines ,H4 

414 Mli>Ii-i Siilhviirt! , . , 77 

lOH MkriiU-iiKueSpiiils 1« 



Reader Serv-ice P^S^ 

4l'.i l*[cLisiun. Int. .,,,., 1 

■V2i Kcnco Ci)m[iiilci K7 

• liUN 

CIont(!]t. ,.,,... , . .2 

RcRUN' Su(i%tTipti*iri 23 

RUN Works 42 

f;W)S I'MKt-r Kiik 43 

Special Ihstie Disk . 4^) 

• SOCWAP Si.ftiv.nre m 

417 Sdflcch C jmtcf Syjiems 93 

• T.il) H«..k«. Irir »!> 

■titi ickiiiiiiiv t'lin. Im 67 

■vn rnp-icti), iiifi . , m 

■i I b Ullnibyte , . , . . M 

■mi X«ec, Inc. 2a 



R)r fuillii-i Ititiiimaiiippi liiiin inir ;lrtvmi^cr>. liicic [lie n>iic*injMrtii)g Rcsdcr Sfrviie number iin Ihir jdjiiinmg card. 
* Tlii^ ;i(lvt-rthcr prefer* lo Itt- coiitLjcted (llrt-< Ely. 

Thi> iiiitri ii provided it in jttdjiiimjl wrvicr. The pubtlllier d«irt ni)t .iitume jei> IJihjIity ttir cTt**r> or umi)AtarM. 



RUN ALERT; As a service to iis readers, RUX will pcrioflicaliy publish llie names of 
coiiipaiiit's who arc having dilTituhifs meeting ihuir ciisioiner nhligations <ii who have 
jrane out ill bus! Ill' ss. Readers arc- utivisecl to cuiiiatt Susan Maiiel, Customer Service 
Representative, RUN Magazine, 80 Elm St., ftterboroiigh. Nil 03458, lu-loic ile^\liiig wiili 
ihi'sc ((nii|janics: S&.S Wliolesalers, Omipumc-il, Pro-Tech-Tronies, White House Com- 
puter, Priijiii Software (Wuto, Icstas), Uiiderwarc and Stardite. 



PREsrotsri 
Michael Ptj<us 

VtcK PRi.-iiiis.vr/Cli.NmAi M a-vauui 
Rogeh Ml-rphv 

VlCK PRi^lDEN f 
STtipHtM TWOMtlLV 

CX)RPOR.JiTt ClKtCHnO.S DlRTflOR Fbjv.'vk S. Svuth 

Single Qin- S.^iis MwAiaji Limja RtTii 

DiRICr SaUIS M.VVAGtH: MiaiAEL CiARROlJ- 
NEWSSTANI) I'ROMonON MANAGER: DEBBIE WALSH 

DiRs.cnm or ClRinir Salsls S; Col.t.trrrioNS Wiixiam M. Buyer 

CORPORATt; I'ROlU'CnuN DiRItTOR DENNIS CKRLSTtJs'SE.N 

Corporate PRODwrrioN MA.sAt;tR: Sl*san Cross; MAM'rAtnx'Risi; Man.weil Lynn Lmassi 

TVPtSETTlKC MANAGER: IJNIIA PAL.MlSA.NO; SVM HI St PtUtVISOfc DOREEN MEANS 

npEStriER; Debra A, Davies 



Mjnuscripu; AH maniiwripl * nnfribinianj. qiicrtei. ic(|uesti fnr wrllrr"* guiddinr* md jn\ (Hhcr cditorijl titrrcipondcnro 

shipiild 1.1- dirtilrd tu «C.V. Ediiiiiijl Onkci, Wl t liii St . Prtcrbipriiiiiih, NH OWW. irlrpliiiiie. WaMI !U71. 

SuliKTipliur. prcihlcmi or iddrru thunjn: i:»ll l-WM) ".L'Sltfill <in Ciili.rid.., nil 147!IS;«1), of write li. m,S\ SuliKilp 

linn SiTtlio, I'd llos .'iSTll, IVmildcr, CO H(ISL'2H7I t. 

Prubkmii wllh Jiilvt-Mi«cr!i; Scud ;i [kit;ripH(jii of [lip }jr[>blrni ;Mlil yimt ciirrciu .ithlrcj* tt): KtW, 8(1 Klin Sircet, l^iej- 

l)^-r(MiRh, NM tJ:liri!H, .^ri\: Summ .MjljcL. ('ummicr St-rvirc. 

Back luBM lU'.y b.tck iiiiH-» arc juiLible fiii SS .'>(), plus SI jMiiiJue ;inrt hamlHng, (turn: RUX. Back liiut Orders, 81) 

Flra Si , ftlclburough, NH IMIM. 

Prohlcm. »ith RcRUN; Wiitc m HeRUN. Ml Klin Sl., Pt-lcrbiirin.Kli. SU 03438, or call IM)0-343-0"2B. 

RUS's BBS: I bt- RI.'NTjirii^ ili>,;id h lUJS'f rraikr feedback biitlcEiti 1h>jicI, wliieh ytut r.m call atrytimt*. tilty i>r nlgbt, wvCTI 

days J week, Iinf iip-iEvdiilt^ ini'drmiilion ;d«>iti llie niitfj.ijnie, the lioiniriodorc itulit^iiy ;iiLd news ;ind lnrc>rnolit>n of hucrtil 

to .rll tli.iniinKlotr usoj. CliH: i;iW.'J24-97IH. 
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Garry Kilchen's 






Coming Soon! 



Deep space missions available. Interested parties should contact: 
Recrttitifig Officer, Absolute Entertainment, Inc., PO Box 116, 
• Glen Rock, NJ 07452. ., . "w 



m 

ABSOLUTE 

t- K T F R T A [ \' \( E \ T 



Ato'feolute EnCertalnment is a registered trademark and Garry Kitchen's Star Fighter Is a trademark 
of Absolute Entertainment. Inc. %') 1088 Absolute Entertainment, Inc. 

, ■ CKCk! 404 on Ftoadof Serv™ e«d, 



THE ULTIMATE 

Word Processor 
from Digital Solutions! 



Here it Is ...the ultimate in power ...the ultimate 
In ease of use. ..the ultimate in speed for your 
Commodore 64 & 128. All of the on-screen features 
that made Pocket Writer a 500,000 seller, plus 
these new exciting additions: 



• Multiple columns. Print 
up to 4 newspaper 
-style columns. 

• Macro capability. 
Record and Invoke. 

' Undo. To cancel last 
command. 

• Markers. Mark up to 10 
locations in one text. 

• Book paging, odd-even 
and left/right. 

• Line and box drawing 
modes. 

• Word, sentence and 
paragraph count. 

• Find/replace In either 
direction. 

• Cursor movement by 
sentence and para- 
graph. 

Plus all the features 
you've become 
accustomed to: 

• No complicated format 
commands embedded 
in text. 

■ Reads files generated 
by Pocket Filer 2 and 
Pocket Planner 2. 



• Spelling Checker 
incorporated Into 
both 64 & 128 
programs. (Original 
Pocket Dictionary 
compatible) 

• Automatic configuration 
for screen color, format 
and printer selection. 

• On-screen text 
formatting and 
wordwrap. What 
you see is what 
you getl 

In 128 version only 

• Supports RAM expander 
and Mouse 

• 25 or 50 lines of 
text displayed on 
screen 

• Allows two files In 
memory at once 
for fast editing 

• On-screen text 
enhancement 
including bold- 
face, underlines 

and /fa//cs("'P'""'P" 
and lubicripii 



Pocket 
Writer "3 

Professional Word Processor 
for the Commodore 128 and 64 

Special Offer! 

If you order your Pocket Wrlter^**3 
Program from Digital Solutions Inc. 
before January 31,1989, you will 
receive a Free Pocket Writer''''* 
Template Disk (retail value 24.95 U.S. 
(29.95 Can.) 



Don't wait! Order today! You can get the Ultimate Word Processor 
from Digital Solutions. Send in the Order Form or call 416-731-8878 
or Fax 418-731-8915 (credit cards orders only) Price is $69.95 U.S. 
($79.95 Can.) We pay all sfiipping and fiandling charges. 
Ontario residents add 8% Provincial Sates Tax o( $6.40 [Total $86.35) 



Digital 
^ Solutions 




Please check the version you require 

Name 



■ \264 Ul2B 



Address 




Citv 


Rtatfl/Prrn/ 


Payment enclosed 
Arrt 


1 A m e X 


rVisa 



Postal Code _ 
I 1 Mastercard 
Exp 



Signature 



P.O. Box 345. 
Station A, 

Willowdale, On|ar.ici&»- 
Canada M2N 559 _, 

Phone: 416-731-877^'^ 
Fax: 4l'6-731-8.915 

Cifde ^102 or^ Rocider Service c^rd 



Credit card orders musl be signed. 



/% 



